- 帖子
- 248
- 主題
- 55
- 精華
- 0
- 積分
- 314
- 點名
- 234
- 作業系統
- XP / WIN7
- 軟體版本
- 2003 / 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Tainan
- 註冊時間
- 2013-10-18
- 最後登錄
- 2024-12-22
           
|
回復 9# GBKEE
版大我還有一問想請教，不知能否幫忙- Sub w_report_Click()
- '-----開啟W表單-----
-
- Dim program_file As String, filename As String, w_file As String
-
- program_file = Left(ActiveWorkbook.Name, Application.Find(".", ActiveWorkbook.Name) - 1)
- filename = Application.GetOpenFilename
-
- ' On Error Resume Next
- ' On Error GoTo HandleErr
- Workbooks.Open filename
- w_file = Dir(filename)
- Debug.Print w_file
- A w_file
- A_chart w_file
- F w_file
-
- Workbooks(program_file).Worksheets(1).w_file = ""
- MsgBox "DONE !!!"
-
- ' Exit Sub
- '
- 'HandleErr:
- ' MsgBox "請開啟W表單。"
-
- End Sub
w_file = Dir(filename)
主要是用來抓開啟的檔案名稱
後來我用個儲存格放檔名讓他測試
EX:
w_file = range("A1") ->儲存格A1來放檔名
這樣就可以了
不知是不是Dir不能使用
請問有什麼另外可以抓到檔名的方法嗎???
哦~而且最後確認
客戶用EXCEL2010英文版的，一樣要像版大說的加上副檔名才行
感謝!!!! |
|
發表於 2014-4-25 20:02
| 
發表於 2014-4-25 20:22
| 