#include <Excel.au3>
;задаем функцию, которая будет выполняться перед выходом
OnAutoItExitRegister('_CloseExcel_Hide')
$sDir = @ScriptDir
$sExcel = 'Test.xls'
$sFileExcel = $sDir & '\' & $sExcel
$iMaxString = 500 ;кол-во блоков в файле xml
$iStartTime = TimerInit()
;открываем файл Test.xls в скрытом режиме
$o_Excel = _ExcelBookOpen($sFileExcel, 0)
If @error Then
MsgBox(16, 'Error', '_ExcelBookOpen')
Exit
EndIf
;получаем массив со списком листов
$a_Sheet = _ExcelSheetList($o_Excel)
If @error Then
MsgBox(16, 'Error', '_ExcelSheetList')
_ExcelBookClose($o_Excel)
Exit
EndIf
;в цикле от первого листа до последнего
For $i = 1 To $a_Sheet[0]
;активируем лист
_ExcelSheetActivate($o_Excel, $i)
If @error Then
MsgBox(16, 'Error', '_ExcelSheetActivate')
_ExcelBookClose($o_Excel)
Exit
EndIf
;сохраняем его как текстовый документ (разделитель - @TAB)
_ExcelBookSaveAs($o_Excel, @ScriptDir & '\' & $a_Sheet[$i], 'txt')
If @error Then
MsgBox(16, 'Error', '_ExcelBookSaveAs')
_ExcelBookClose($o_Excel)
Exit
EndIf
Next
;закрываем Test.xls
_ExcelBookClose($o_Excel)
;получили текстовые файлы. Имя - имя листа, кол-во - кол-во листов в Test.xls
;в цикле обрабатываем полученыые файлы
For $j = 1 To $a_Sheet[0]
;задаем нужные нам значения
$iCountXML = 0
$sString = '<?xml version="1.0" encoding="UTF-8"?>' & @CRLF & '<root>' & @CRLF
$iCount = 0
$i_RowCnt = 0 ;обрабатываем все строки до конца (если не 0, то можно задать кол-во строк для обработки
$i_StartRow = 2;обработку начинаем со 2-ой строки
;открываем, читаем, закрываем, удаляем очередной текстовый файл
$hFile = FileOpen(@ScriptDir & '\' & $a_Sheet[$j] & '.txt')
If $hFile = -1 Then ContinueLoop
$sText = FileRead($hFile)
FileClose($hFile)
FileDelete(@ScriptDir & '\' & $a_Sheet[$j] & '.txt')
;получаем массив строк
$aText = StringSplit(StringStripCR($sText), @LF)
If $aText[0] < 2 Then ContinueLoop
;проверяем значения переменных, если они не правильные, исправляем.
If Not $i_StartRow Or $i_StartRow >= $aText[0] Then $i_StartRow = 1
If Not $i_RowCnt Then
$i_RowCnt = $aText[0]
Else
$i_RowCnt += $i_StartRow - 1
EndIf
If $i_RowCnt > $aText[0] Then $i_RowCnt = $aText[0]
;в цикле обрабатываем каждую строку
For $i = $i_StartRow To $i_RowCnt
$iCount += 1
;получаем массив из строки по разделителю @TAB (аналог ячеек в Excel)
$aTemp = StringSplit($aText[$i], @TAB)
;если в Test.xls заполнены все пять первых колонок
If $aTemp[0] = 5 Then
;присваиваем строке $sString нужные значения:
$sString &= '<Registrierung id ="' & $iCount & '">' & @CRLF & _
@TAB & '<AuftragsId>' & $aTemp[1] & '</AuftragsId>' & @CRLF & _
@TAB & '<VOId>' & $aTemp[2] & '</VOId>' & @CRLF & _
@TAB & '<Privatkunde>' & @CRLF & _
@TAB & @TAB & '<Anrede>' & $aTemp[3] & '</Anrede>' & @CRLF & _
@TAB & @TAB & '<Vorname>' & $aTemp[4] & '</Vorname>' & @CRLF & _
@TAB & @TAB & '<Name>' & $aTemp[5] & '</Name>' & @CRLF & _
@TAB & '</Privatkunde>' & @CRLF & _
'</Registrierung>' & @CRLF & @CRLF
EndIf
If $iCount = $iMaxString Then
$iCountXML += 1
;открываем (создаем) файл xml с именем листа в кодировке UTF-8
$hFile = FileOpen(@ScriptDir & '\' & $sExcel & '_XML\' & $a_Sheet[$j] & '\' & $iCountXML & '_' & _
$a_Sheet[$j] & '.xml', 128 + 2 + 8)
If $hFile = -1 Then ContinueLoop
;записываем в него созданную строку и закрываем
FileWrite($hFile, $sString & '</root>')
FileClose($hFile)
$sString = '<?xml version="1.0" encoding="UTF-8"?>' & @CRLF & '<root>' & @CRLF
$iCount = 0
EndIf
Next
$iCountXML += 1
;открываем (создаем) файл xml с именем листа в кодировке UTF-8
$hFile = FileOpen(@ScriptDir & '\' & $sExcel & '_XML\' & $a_Sheet[$j] & '\' & $iCountXML & '_' & _
$a_Sheet[$j] & '.xml', 128 + 2 + 8)
If $hFile = -1 Then ContinueLoop
;записываем в него созданную строку и закрываем
FileWrite($hFile, $sString & '</root>')
FileClose($hFile)
Next
;Все :)
MsgBox(64, 'Info', StringFormat('%.2f sec', TimerDiff($iStartTime) / 1000))
Func _CloseExcel_Hide()
;закрывает скрытые окна Excel, чтобы не висел EXCEL.EXE в процессах
Local $a_List
$a_List = WinList('[Class:XLMAIN]')
If $a_List[0][0] Then
For $i = 1 To $a_List[0][0]
If Not BitAND(WinGetState($a_List[$i][1]), 2) Then
WinClose($a_List[$i][1])
EndIf
Next
EndIf
EndFunc ;==>_CloseExcel_Hide
