Excelde Import – Iceri Al

import
Exceldeki calisma sayfalariniza baska dosyalarinizdan excel yahut text dosyalarinizdan verilerinizi hizli bir skeilde baska bir dosya acmadan kopyalamakla ugrasmadan almak istemezmiydiniz..
Biz isteyebileceginizi dusunerek, ornek bir uygulama hazirladik.. kodlarimizi ve dosyamizi inceleyiniz..

VBA Kodlari



Public Sub Iceri_Al()
Dim ImportFile As String
Dim ImportTitle As String
Dim TabName As String
Dim ControlFile As String
‘Open Penceresi
ImportFile = Application.GetOpenFilename( _
“Excel Files, *.xls, All Files, *.*”)
ImportTitle = _
Mid(ImportFile, InStrRev(ImportFile, “”) + 1)
‘Cancel Butonuna basilip basilmadigini anlamak
If ImportFile = “False” Then
Exit Sub
End If
‘Iceri Alma
TabName = “Iceri_Al_Sayfasi”
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=ImportFile
ActiveSheet.Name = TabName
Sheets(TabName).Copy _
Before:=Workbooks(ControlFile).Sheets(1)
Windows(ImportTitle).Activate
ActiveWorkbook.Close SaveChanges:=False
Windows(ControlFile).Activate
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Excelde Import – Iceri Al” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


4 + 2 =