Save as CSV

Здравейте,

имам макрос , който отваря определен брой файлове, обработва ги и ги затваря отново, с други думи имам цикъл, в който има :

wbTarget.SaveAs Filename:=sFName, FileFormat:= _
xlCSV ' , CreateBackup:=False
wbTarget.Close SaveChanges:=False

Проблема е, е всеки път излиза диалогов прозорец "Do you want to save the changes to...", въпреки SaveChanges:=False. Ако записвам като XLS , проблеми няма, но на мен ми трябва то4но CSV формат.

Някои да има идея?

Er muoz gelichesame die Leiter ibewerfen, so Er an ir ufgestigеn
ist...

Ако не ти представлява трудност би ли постнал един код на такъв макрос или ми прати на miteffemail@abv.bg. Благодаря предварително

Примерно неЩо такова:

For Each C In .Range("strFilepaths")

iCurrFile = iCurrFile + 1
If CheckFiles(CStr(strFilePaths(iCurrFile))) Then
LoadFile CStr(strFilePaths(iCurrFile))
Call <fфункция която обработва файла>
SaveWorkbook CStr(strFilePaths(iCurrFile))
Else
MsgBox ("File " & Cells(C.Row, 3) & " NotFound")
End If


Next
End With

strFilepaths ти е рейндж, където копираш имената на файловете, които ще отваряш, LoadFile е функция която отваря файла, SaveWorkbook сайва и затваря. Последните две функции нормално са по един ред, но при мене в слуая са пуо -сложни, 4ета CSV-то последователно, 4е е пове4е от 60к реда.

Er muoz gelichesame die Leiter ibewerfen, so Er an ir ufgestigеn
ist...