#include <SQLite.au3>
#include <SQLite.dll.au3>
Local $hQueryResult, $aResult
_SQLite_Startup()
$DB=_SQLite_Open (@ScriptDir &"\BNKSEEK.DBF")
_SQlite_Query($DB, "SELECT * FROM BNKSEEK;", $hQueryResult)
While _SQLite_FetchData($hQueryResult, $aResult) = $SQLITE_OK
ConsoleWrite($aResult[0] & @CR)
WEnd
_SQLite_Close($DB)
_SQLite_Shutdown()
#include <Excel.au3>
$sFilePath1 = @ScriptDir & "\Test1.dbf"
$oExcel = _ExcelBookOpen($sFilePath1)
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
_ExcelBookSaveAs($oExcel, @ScriptDir & "\SaveAsExample", "csv")
If Not @error Then MsgBox(0, "Success", "File was Saved!", 3)
_ExcelBookClose($oExcel, 0, 0)
;FileMove( @ScriptDir & "\SaveAsExample.csv", @ScriptDir & "\SaveAsExample.txt")
Реально. Есть даже UDF для работы с dbf файлами. Прикрепил библиотеку и с ней dll.Реально это сделать средствами AutoIt?
axlwor сказал(а):;D
Код:#include <Excel.au3> $sFilePath1 = @ScriptDir & "\Test1.dbf" $oExcel = _ExcelBookOpen($sFilePath1) 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 _ExcelBookSaveAs($oExcel, @ScriptDir & "\SaveAsExample", "csv") If Not @error Then MsgBox(0, "Success", "File was Saved!", 3) _ExcelBookClose($oExcel, 0, 0) ;FileMove( @ScriptDir & "\SaveAsExample.csv", @ScriptDir & "\SaveAsExample.txt")
#include "DBF.au3"
#include <Excel.au3>
Local $sDbf_file=@ScriptDir&'\test1.dbf'
Local $sExcel_file = @ScriptDir & "\Test1.xls"
Local $sSheet_name='Лист2'
;Чтение DBF файла
Local $hDBF=_DBF_Open($sDbf_file)
Local $aDBF = _DBF_DBFToArray($hDBF)
_DBF_Close($hDBF)
;Запись в Excel
Local $oExcel = _Excel_Open(False)
Local $oWorkbook = _Excel_BookOpen($oExcel,$sExcel_file)
_Excel_RangeWrite($oWorkbook,$sSheet_name,$aDBF)
_Excel_BookClose($oWorkbook)
_Excel_Close($oExcel)
#include <Excel.au3>
Local $sDbf_file = @ScriptDir & '\test1.dbf'
Local $sExcel_file = @ScriptDir & "\Test1.xls"
Local $sSheet_name = 'Лист2'
Local $oExcel = _Excel_Open(False)
;Чтение DBF файла
Local $oWorkbook_dbf = _Excel_BookOpen($oExcel, $sDbf_file)
Local $aDBF = _Excel_RangeRead($oWorkbook_dbf)
_Excel_BookClose($oWorkbook_dbf)
;Запись в Excel
Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcel_file)
_Excel_RangeWrite($oWorkbook, $sSheet_name, $aDBF)
_Excel_BookClose($oWorkbook)
_Excel_Close($oExcel)
Библиотека Excel.au3 со времен Autoit v3.3.8.1 значительно переписана, изменены имена функций.ВиталийВВ сказал(а):... У меня версия 3,3,8,1. Ощущение, что дело в не той версии AutoIt'а?
Я вам ссылку-то зачем дал?ВиталийВВ сказал(а):а можно попросить все это реализовать в рамках 3,3,8,1?
#include <Excel.au3>
#include <Array.au3>
$sFilePath1 = @ScriptDir & "\1.dbf"
$oExcel = _ExcelBookOpen($sFilePath1)
$aArray = _ExcelReadSheetToArray($oExcel)
Local $iRows = UBound($aArray, 1) ; Обще количество строк.
Local $iCols = UBound($aArray, 2) ; Обще количество колонок.
Local $aArray2[$iRows-1][$iCols-1]
For $i = 1 To $iRows-1
For $j = 1 To $iCols-1
$aArray2[$i-1][$j-1] = $aArray[$i][$j]
Next
Next
$oExcel = _ExcelBookOpen(@ScriptDir & "\to.xls")
_ExcelSheetActivate($oExcel, "2")
_ExcelWriteSheetFromArray($oExcel, $aArray2, 1, 1, 0, 0)