- 帖子
- 107
- 主題
- 8
- 精華
- 0
- 積分
- 127
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-8-29
- 最後登錄
- 2025-1-28
|
回復 1# am0251
是這個嗎?- sub openCSV()
- dim mydir as string
- mydir = thisworkbook.path & "\"
- workbooks.opentext filename:=mydir & 123.txt, datatype:=xldelimited, comma:=true
- end sub
複製代碼 |
|