>In the previous example, PasteSpecial() is used but this pastes in all of the
>images and links that were on the HTML page.
>** used in the example
>.Activeworkbook.Activesheet.Range('a1').PasteSpecial()
>
>But if we just want the values, could we do as
>.Activeworkbook.Activesheet.Range('a1').PasteSpecial(-4163,-4142,.f.,.f.)
>
>as based on the following from the object viewer in excel and for paste special from an excel
>macro recording
>
>*Selection.PasteSpecial
>*Paste:=xlValues,
>*Operation:=xlNone,
>*SkipBlanks:= False,
>*Transpose:=False
>Thanks
>Steve
Steve,
(as I know more details on your reqirement)
I think you don't need pastespecial there :
oEx = Createobject('excel.application')
With oEx
.Visible = .T.
.DefaultWebOptions.LoadPictures = .F.
.Workbooks.Open(TheNameOfTheHtmlFile)
Endwith
PS: With PasteSpecial too it'd work if you set as .DefaultWebOptions.LoadPictures = .F. ( PasteSpecial() then ).
Cetin