[VBA ] 關於excel vba 從web抓資料後的存檔問題
程式碼:
Sub F_Sample001()
Dim myURL As String
Dim myWebTbl As String
Dim DATA1, DATA2, DATA3 As String
DATA1 = 200808
DATA2 = 20080804
DATA3 = 970804
Worksheets("sheet1").Cells(2, 1).Value = "日期"
Worksheets("sheet1").Range("A3: A273").Value = DATA2
myURL = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_5MINS/genpage/Report" & DATA1 & "/A125" & DATA2 & ".php?chk_date=" & DATA3
myWebTbl = "9"
Worksheets("sheet1").Activate
With ActiveSheet.QueryTables.Add(Connection:=myURL _
, Destination:=Range("B1"))
.WebFormatting = xlWebFormattingNone
.WebTables = myWebTbl
.Refresh
End With
End Sub
--------------------------------------------------------
請問各位大大：
想要將 range("A2:I273") 的範圍資料存成CSV檔該如何存 (因為抓下來的第一列不想要)
(有試過，但網路抓下來的資料寫程式都存不出去 手動才行)
是不是抓下來的資料要轉格式啊?
write不行
print可以但格式會亂且不是我要的
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.25.118.74
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
