[發問] vba 開啟 ie 另存新檔問題

koshi0413

以下是小弟在網路上看的方式照改的。
需要的動作，開啟ie > 列印pdf > 自動帶入所需檔名 > 存檔
目前的動作，開啟ie > 列印pdf ....掛了

有高手可幫忙嘛？
對了，有看到一篇不錯，7樓 GBKEE 大這篇，為另存網頁，但~~有些我要的網頁都跑不了@@
http://forum.twbts.com/viewthread.php?tid=12273
這方式應該可也另存成pdf吧？

ps: ie 可改用 chrome 來列印pdf嘛？
pps:小弟不是學程式的，所以很多都看不懂，只是一個一個試

1. Sub 工作表1()
   
2. 
   
3.     Sheets("工作表1").Select
   
4.    
   
5. Dim xlsName, xlsNameNo, MyName, NewName, SavePath, DDate, URL As String
   
6. 
   
7.     xlsName = ActiveWorkbook.Name                 ''檔名
   
8.     xlsNameNo = Mid(s, 1, 4)                      ''檔名前4字元
   
9.     MyName = Application.ActiveWorkbook.FullName  ''路徑檔名
   
10.     NewName = Left(MyName, Len(MyName) - 5)       ''去除副檔名
    
11.     SavePath = ActiveWorkbook.Path                ''路徑
    
12.     DDate = Format(Date, " _ yyyy-mm-dd")         ''當日日期
    
13.     URL = "http://goodinfo.tw/StockInfo/EquityDistributionClassHis.asp?STOCK_ID=2330"         ''網址
    
14.     Cells.Clear
    
15. 
    
16.     Application.DisplayStatusBar = True
    
17.     Application.ScreenUpdating = False
    
18.     Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
    
19.     With ie
    
20.         .Visible = True  'True為開啟ie, False為不開啟ie
    
21.         .Navigate URL
    
22. 
    
23.     Do While .Readystate <> 4  '等待網頁開啟
    
24.         DoEvents
    
25.     Loop
    
26. 
    
27.     Application.StatusBar = "資料複製中請稍候...."
    
28.         .ExecWB 6, 2    ''列印成pdf
    
29.         ????????????    ''這一串要接什麼才可以自動key入檔名呢？  比方說：fileName =  xlsName &  DDate       在網路上找了很多字串，還是不會用~
    
30. 
    
31.     End With
    
32. Application.StatusBar = False
    
33.    
    
34.     ''ie.Quit  
    
35.    
    
36. End Sub

複製代碼

koshi0413

回復 1# koshi0413

附上相關資料，請各位高手開示一下......

下載 (165.59 KB)
如何能key入資料呢？

2016-5-17 07:28

    2330 台 積 電.rar (45.34 KB)

內有二個巨集
下載次數: 0

2016-5-17 07:27

koshi0413

今天有在試了一個方式  SendKeys
可以存檔案下來，但key入的名字，常常跑不完全（因為要跑五個網頁，一個一個跑，跑五次，如果反覆一直按，每次存的名字要看運氣才會正確也）

1. Sub 下載pdf()
   
2. Sheets("下載用").Select
   
3.    
   
4. Dim xlsName, xlsNameNo, MyName, NewName, SavePath, DDate, URL As String
   
5. 
   
6.     xlsName = ActiveWorkbook.Name                 ''檔名
   
7.     xlsNameNo = Mid(xlsName, 1, 4)                ''檔名前4字元
   
8.     SavePath = ActiveWorkbook.Path                ''路徑
   
9.     MyName = Application.ActiveWorkbook.FullName  ''路徑檔名
   
10.     NewName = Left(MyName, Len(MyName) - 5)       ''去除副檔名
    
11.     DDate = Format(Date, "yyyy-mm-dd _ ")         ''當日日期
    
12. 
    
13.    
    
14.     Cells.Clear
    
15.     Application.DisplayStatusBar = True
    
16.     Application.ScreenUpdating = False
    
17. 
    
18.     ''董監持股現況1
    
19.     Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
    
20.     URL = "http://www.fortunengine.com.tw/stock/company/holding.cfm?scode=" & xlsNameNo    ''網址
    
21.     With ie
    
22.         .Visible = False 'True為開啟ie, False為不開啟ie
    
23.         .Navigate URL
    
24. 
    
25.     Do While .Busy: DoEvents: Loop
    
26.     Do While .Busy: DoEvents: Loop
    
27.     Do While .Readystate <> 4: DoEvents: Loop
    
28.         .ExecWB 6, 2
    
29.         
    
30.    
    
31.     Application.Wait Now + TimeValue("00:00:04")
    
32.     Application.SendKeys (DDate & xlsNameNo & "_1")
    
33.     ''Application.Wait Now + TimeValue("00:00:01")
    
34.     Application.SendKeys "{TAB}", True
    
35.     ''Application.Wait Now + TimeValue("00:00:01")
    
36.     Application.SendKeys "{TAB}", True
    
37.     ''Application.Wait Now + TimeValue("00:00:01")
    
38.     Application.SendKeys "{TAB}", True
    
39.     ''Application.Wait Now + TimeValue("00:00:01")
    
40.     Application.SendKeys "{ENTER}", True
    
41.     ''Application.Wait Now + TimeValue("00:00:01")
    
42.     Application.SendKeys "{TAB}", True
    
43.     Application.SendKeys "{ENTER}", True
    
44.    
    
45.     End With
    
46.    
    
47.     Application.StatusBar = False
    
48.     ie.Quit
    
49. End Sub

複製代碼