PDA

Показать полную графическую версию : [решено] Скрипт создания файла данных через диологовое окно. как?


Страниц : 1 [2]

HORRIBLE
22-12-2009, 22:10
Pozia,

#include <Excel.au3>

$sheet = "Лист1" ; Название листа на котором находятся данные
$num_row_start = 6 ; начальная строка
$num_col_start = 2 ; начальный столбец
$num_row_end = $num_row_start+8 ; конечная строка

$sFile = @ScriptDir & '\file.ext'
$sFilePath1 = @ScriptDir & "\book.xls"
$oExcel = _ExcelBookOpen($sFilePath1,0)

If @error = 1 Then
MsgBox(0, "Error!", "Unable to Create the Excel Object")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Error!", "File does not exist - Shame on you!")
Exit
EndIf

_ExcelSheetActivate($oExcel, $sheet)

If @error = 1 Then
MsgBox(0, "Error!", "Specified object does not exist")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Error!", "Specified sheet number does not exist")
Exit
ElseIf @error = 3 Then
MsgBox(0, "Error!", "Specified sheet name does not exist")
Exit
EndIf
$hWrite = FileOpen($sFile, 2)

For $i = 0 to ($num_row_end - $num_row_start)

$sCellValue_t = _ExcelReadCell($oExcel, $num_row_start + $i, $num_col_start) ; название ячейки
$sCellValue_d = _ExcelReadCell($oExcel, $num_row_start + $i, $num_col_start+1);значение ячейки

FileWriteLine($hWrite, $sCellValue_t & $sCellValue_d)

Next

FileClose($hWrite)
_ExcelBookClose($oExcel, 0, 0)
MsgBox(0,"", "Файл записан",3)

Pozia
22-12-2009, 22:38
HORRIBLE, добавте еще закрытие экселя после отработки скрипта пожалуйста и его скрытие. И мне в принципе не нужно окно диалога ввода данных после запуска екселя. я их один раз в скрипт задам и мне нормально. Просто нужен запуск скрипта и получения данных из экселя в файл. Спасибо!

HORRIBLE
22-12-2009, 22:59
Pozia, изменил как просили.




© OSzone.net 2001-2012