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
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!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
Thanks, bbj
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks