- 帖子
- 181
- 主題
- 66
- 精華
- 0
- 積分
- 256
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2010-5-4
- 最後登錄
- 2025-4-3
|
本帖最後由 john2006168 於 2010-6-8 00:01 編輯
Sub share()
Dim myWb As Workbook
Dim myFileName As String
myFileName = "john.csv"
Set myWb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & myFileName)
Set myWb = Nothing
End Sub |
|
發表於 2010-6-5 00:49
| 
