>>>>>Is it possible to import an HTML file, in a spreadsheet-like format, directly into a VFP table? It's not in the syntax of VFP7's import or copy to.
>>>>>
>>>>>I guess I need to manually convert it to XLS, or delim (or whatever) first?
>>>>>
>>>>>'ppreciate it
>>>>>
>>>>>Terry
>>>>
>>>>Directly, no.
>>>>But you could use Automation to open that HTML in Excel, save it as usual XLS file and then import it in VFP.
>>>
>>>Thanks Boris
>>>
>>>I presume that once I've created the excel object I use, like, loExcel.Open ( lcMyFileName) ?
>>>
>>>Terry
>>
>>
>>#DEFINE xlNormal -4143
>>
>>oExcel.Open([...........])
>>oExcel.ActiveWorkBook.SaveAs([Test.XLS],xlNormal)
>>
>>
>>Not tested.
>
>Thanks BB
>
>I just opened the HTML in Excel, did some reformatting and saved it, whilst recording a macro, and came up with:
>
>
>Workbooks.Open Filename:= _
> "R:\OPDATA\Essex\SM_Coaches\APR06\sm coaches disk.htm"
>... reformatting code
>ActiveWorkbook.SaveAs Filename:= _
> "R:\OPDATA\Essex\SM_Coaches\APR06\sm coaches disk.xls", FileFormat:= _
> xlExcel9795
>
>
>Now this differs a bit from your code (which you say isn't tested). I was wondering if the VB code needs to be changed, e.g. the ":=" to "=", or if your example is what will work in VFP, as opposed to the macro code. For example, the "_" at the end of the first line, is that like a line continuation mark, and would that need to be replaced with ";"?
>
>This is very interesting and satisfying, isn't it, once you get into it :-)
>
>Terry
It differs because Excel Macro uses named parameters, you can't do that in VFP. VFP uses only positioned ones.
[:=] must be changed to [=] && But you can't use it here
[_] is the next line marker and you are right, this is [;] in VFP
But to get the exact position of parameters, becuase sometimes when you record a Macro Excel (Word) doesn't use all of them, beffer mark the Method used in Macro and press F1. That will invoke VBA Help and you will see the Exact syntax you could use in VFP. I just saw one error in my code:
#define xlNormal -4143
oExcel.WorkBooks.Open([...........])
oExcel.ActiveWorkBook.SaveAs([Test.XLS],xlNormal)
To get all Excel (Word) predefined constants you could use:
Open Object Browser
Open XL5EN32.OLB (Program Files\MS Office\Office11\XL5EN32.OLB)
Open Constant Node of the TreeView
Open Empty file and Drag & Drop Constant node in it.
Other way is to put:
MsgBox xlNormal
in Macro Editor and run it :-)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.