Arkadaşlar Merhaba,
Aşağıdaki gibi bir kod var. 6.satırdaki Kod "Sheet1","Sheet2" ve "Sheet3" sayfalarını atlamamıza yarıyor. Ancak 11.satırda kod belirli bir dosyaya erişim için dosya adını "Sheet2" sayfasından alması gerekiyor. İhtiyacım olan tek şey ise 11.Satırda "xWs.Range("H2").Value" olarak belirtilen yer o an aktif sayfanın "H2" hücresindeki veriden dosya adını almaktadır. Ben ise bu veriyi "Sheet2"nin "H2" hücresinden almasını istiyorum. Sayfa adını nasıl tanımlamalıyım? Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.
Aşağıdaki gibi bir kod var. 6.satırdaki Kod "Sheet1","Sheet2" ve "Sheet3" sayfalarını atlamamıza yarıyor. Ancak 11.satırda kod belirli bir dosyaya erişim için dosya adını "Sheet2" sayfasından alması gerekiyor. İhtiyacım olan tek şey ise 11.Satırda "xWs.Range("H2").Value" olarak belirtilen yer o an aktif sayfanın "H2" hücresindeki veriden dosya adını almaktadır. Ben ise bu veriyi "Sheet2"nin "H2" hücresinden almasını istiyorum. Sayfa adını nasıl tanımlamalıyım? Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.
Kod:
1-Sub OutDataImport()
2-Application.ScreenUpdating = False
3- Application.DisplayAlerts = False
4- Application.Calculation = xlCalculationManual
5- For Each xWs In Application.ActiveWorkbook.Worksheets
6- If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" And xWs.Name <> "Sheet3" Then
7- Sheets("Sheet4").Select
8- Range("A1").Select
9- xWs.Range("A:E").Clear
10- Dim FilePath As String
11- FilePath = "TEXT;C:\Users\TRAMP\Desktop\VERGİ\" & xWs.Range("H2").Value
12- With xWs.QueryTables.Add(Connection:=FilePath, Destination:=xWs.Range("$A$1"))
13- .Name = xWs.Range("H4").Value
14- .FieldNames = True
Son düzenleme:
