Тема: vbs копирование в Excel без автозамены
Всем добрый день. Без вас не справиться.
Задача такова:
1. Есть рабочий макрос:
sub export
Dim FSO,FileName
iRow = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = "D:\test.xlsx"
set xlApp = CreateObject("Excel.Application")
xlApp.Visible = true
set xlWB = xlApp.Workbooks.Open(FileName)
set xlSheet = xlWB.Worksheets(1)
set obj = ActiveDocument.getsheetobject(ChartName)
xlSheet.Activate
while not (isempty(xlSheet.Cells(iRow, 1)))
iRow = iRow+1
wend
set txt1 = ActiveDocument.GetSheetObject("CH03") '
txt1.CopytableToClipboard TRUE '(1*)
xlSheet.Cells(iRow,1).Select
xlSheet.Paste '(2*)
For i=iRow to iRow+1 '
If (xlSheet.Range("A" & i).Value = "Номенклатура ") Then
xlSheet.Range("A" & i).EntireRow.Delete
End if
Next
xlWB.Save
xlWB.Close
xlApp.Quit
'************* Конец *********************************************
end sub2. Необходимо чтобы при копировании таблицы (1*), где есть строки в ячейках с двумя и более пробелами (н-р: дверь дерев.), все значения при вставке В EXCEL не изменялись (не удалялись лишние пробелы).
Т.е. если коротко:
Источник:
Номенклатура |
-------------------
дверь дерев. |
На выходе: (сейчас)
Номенклатура |
-------------------
дверь дерев. |
На выходе: (Должно быть как и в источнике)
Номенклатура |
-------------------
дверь дерев. |
Необходимо копирование без каких либо изменений в наполнении таблицы!)))
Очень надеюсь на вашу помощь!!!)))
