- Katılım
- 15 Kasım 2007
- Mesajlar
- 336
- Excel Vers. ve Dili
- iş: 2010 İngilizce
ev:2010 Türkçe
Merhaba,
Kullandığım bir program var ve program çektiğim verileri excel e aktarma özelliğine sahip. Fakat birden fazla farklı sorgulama yapıp aynı anda excel sayfası olarak açamıyorum çünkü excel e aktardığımda dosyayı temp klasörüne aynı isimle kaydetmeye çalışıyor. Save as vb. bir işlem yapmak istemiyorum. Açılan excel sayfasında şöyle bir kod karşıma çıktı:
Sub LoadData_CariHareket_Raporu()
'
' Macro1 Macro
' Macro recorded by
'
'
Dim TMPDIR As String
TMPDIR = Environ("TEMP") + "\"
ChDir TMPDIR
Workbooks.OpenText Filename:=TMPDIR + "ASY0101_CariHareket_Raporu.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=True, OtherChar:=";", FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
))
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:=TMPDIR + "ASY0101_CariHareket_Raporu.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Bu kodlarda nasıl bir değişiklik yaparsam birden fazla excel dosyası görüntülüyebilirim ?
Kullandığım bir program var ve program çektiğim verileri excel e aktarma özelliğine sahip. Fakat birden fazla farklı sorgulama yapıp aynı anda excel sayfası olarak açamıyorum çünkü excel e aktardığımda dosyayı temp klasörüne aynı isimle kaydetmeye çalışıyor. Save as vb. bir işlem yapmak istemiyorum. Açılan excel sayfasında şöyle bir kod karşıma çıktı:
Sub LoadData_CariHareket_Raporu()
'
' Macro1 Macro
' Macro recorded by
'
'
Dim TMPDIR As String
TMPDIR = Environ("TEMP") + "\"
ChDir TMPDIR
Workbooks.OpenText Filename:=TMPDIR + "ASY0101_CariHareket_Raporu.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=True, OtherChar:=";", FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
))
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:=TMPDIR + "ASY0101_CariHareket_Raporu.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Bu kodlarda nasıl bir değişiklik yaparsam birden fazla excel dosyası görüntülüyebilirim ?
