Программа отлично работает с .xls , но не с .xml
Задача: найти файлы ПИРОЖОК с расширением .xml и конвертировать отредактированный файл в .csv.
Проблема: У меня всё работает, конвертирует, сохраняет. Но вот условия, где ему говорю убирать пробелы, удалять пустые строки - не работают. Он мне из файла с таблицами сохраняет пустой .csv.
'find the xml files in the directory
If Not curfold Is Nothing Then
For Each fil In curfold.Files
If InStr(1, fil.Name, ".xml", vbTextCompare) > 0 and (InStr(1, fil.Name, "PIE", vbTextCompare)) > 0 Then
d = fil.Name
Set wb = objEX.Workbooks.Open(Path & "\" & d)
If InStr(1, fil.Name, "PIE", vbTextCompare) > 0 Then
'remove the spaces from the amounts
wb.Sheets(1).Columns("C:C").NumberFormat = "0.00"
wb.Sheets(1).Columns("D:D").NumberFormat = "0.00"
'replace"; /" on " ."
wb.Sheets(1).Range("K1").value=wb.Sheets(1).Range("K1").value & ";"
wb.Sheets(1).Range("A:K").Replace ";", " "
wb.Sheets(1).Range("A1").value=wb.Sheets(1).Range("A1").value & "/"
wb.Sheets(1).Range("A:A").Replace "/", "."
' wb.Sheets(1).Range("H:H").Replace " ", ""
'delete empty lines
wb.Sheets(1).Rows("1:3").Delete
su=1
'delete column L and M
wb.Sheets(1).Columns("M:M").delete
wb.Sheets(1).Columns("L:L").delete
nRow = 1
'delete the extra empty lines at the end of the file
Do While wb.Sheets(1).Cells(nRow, 1).Value <> ""
nRow = nRow + 1
loop
wb.Sheets(1).Rows(nRow & ":" & nRow+20000).Delete