麻辣家族討論版版 » Excel程式區 » 自動開啟excel

返回列表下一主題上一主題發帖

[發問] 自動開啟excel

小學生 Rank: 1

帖子: 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
請幫忙檢視看看

Dim strNowPath As String
strNowPath = Range("b1")
Dim mFile As String
mFile = Dir("strNowPath & *.CSV")
Do While mFile <> ""
Workbooks.Open Filename:="strNowPath" & mFile
mFile = Dir()
Loop

複製代碼

樓主熱帖

收藏

小學生 Rank: 1

帖子: 10
主題: 4
精華: 0
積分: 14
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 10
註冊時間: 2014-8-21
最後登錄: 2016-4-17

2^#

發表於 2016-4-16 21:42 | 只看該作者

Hi All

感謝各位的幫忙，小的找到方法了，感恩

Dim strNowPath As String
strNowPath = Range("b1")
Dim mFile As String
mFile = Dir(strNowPath & "*.CSV")
Do While mFile <> ""
Workbooks.Open Filename:=strNowPath & mFile
mFile = Dir()
Loop

複製代碼

靜思自在 : 忘功不忘過，忘怨不忘恩。

返回列表下一主題上一主題