作者pigmarkchung (阿忠)
看板Visual_Basic
标题[VBA ] 关於excel vba 从web抓资料後的存档问题
时间Tue Aug 19 19:17:29 2008
程式码:
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