返回列表 上一主題 發帖

[發問] 自動開啟excel

z15935712

帖子
10 
主題
4 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
10 
註冊時間
2014-8-21 
最後登錄
2016-4-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-16 21:16 | 只看該作者

[發問] 自動開啟excel

Hi All

不知道程式哪邊有問題，無法自動開啟指定路徑下的所有excel
請幫忙檢視看看
  1.     Dim strNowPath As String     
  2.    
  3.     strNowPath = Range("b1")   
  4.       
  5. Dim mFile As String
  6. mFile = Dir("strNowPath & *.CSV")
  7. Do While mFile <> ""
  8. Workbooks.Open Filename:="strNowPath" & mFile
  9. mFile = Dir()
  10. Loop
複製代碼
收藏 分享

z15935712

帖子
10 
主題
4 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
10 
註冊時間
2014-8-21 
最後登錄
2016-4-17 
2#
發表於 2016-4-16 21:42 | 只看該作者
Hi All

感謝各位的幫忙，小的找到方法了，感恩
  1.     Dim strNowPath As String  
  2.    
  3.     strNowPath = Range("b1")  
  4.    
  5. Dim mFile As String
  6. mFile = Dir(strNowPath & "*.CSV")
  7. Do While mFile <> ""
  8. Workbooks.Open Filename:=strNowPath & mFile
  9. mFile = Dir()
  10. Loop
複製代碼

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題