I have looked around and found answers to most of my questions.. a week ago I knew nothing of excel. So be patient, please.
I have recorded macro to auto_start (BELOW) to go get data from interne t (zacks.com)and write data to a *.csv file. I now need to run FoxPro program to crunch the data. The foxpro command line is c:\myfolder\vfp6.exe zacks. I need the code to make it run and then FoxPro creates a zacks.csv file to import back into excel and create the table as HTML??? So I can then FTP to website directly. (I think that is how I would post directly??? http://www.excelforum.com/excel-prog...html?p=2646942 I saw this code as well .
Not a programmer for sure. I use an event scheduler to start this process every 20 minutes (excel) then start Foxpro 19 minutes later. I have no idea how to proceed. Much like fellow below capture stuff runs really slow (because of all the switches?) And I need help speeding it up. (answer wasnt posted???
Also like http://www.excelforum.com/excel-prog...ific-data.html
Range("A1").Select
ActiveCell.FormulaR1C1 = "TICKER"
Columns("B:Z").Select
Selection.QueryTable.DELETE
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.zacks.com/research/report.php?type=grk&t=CSE", Destination:= _
Range("$B$1"))
.Name = "report.php?type=grk&t=CSE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
Range("C7").Select ‘<<<< will this work to add time/date stamp?
ActiveCell.FormulaR1C1 = Now()
End With
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.zacks.com/research/report.php?type=grk&t=AIZ", Destination:= _
Range("$B$251"))
.Name = "report.php?type=grk&t=FIO"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
Range("C257").Select
ActiveCell.FormulaR1C1 = Now()
End With
Selection.Copy
ActiveWorkbook.Saved = True
Workbooks.Open Filename:="C:\* \ZACKS.csv"
Columns("B:Z").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges:=True
' ActiveWorkbook.Close
' ActiveWindow.Close
' Application.DisplayAlerts = False
' Application.Quit
End Sub
Many thanks for helping me to get to the end of a 10yr quest. 5 “programmers” havent gotten it done so I started and it works although rather manually. I’d like to get it automated so I can post my stuff daily… I don’t type!
Thanks, bbj
Bookmarks