- 帖子
- 29
- 主題
- 3
- 精華
- 0
- 積分
- 39
- 點名
- 0
- 作業系統
- WINDOWS XP
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2012-10-12
- 最後登錄
- 2020-10-15
|
本帖最後由 leoman0002 於 2013-5-1 02:05 編輯
因為是小學生..無法下載附件..也看不到寫些什麼,不過我知道2003
Set csvworksheet = ThisWorkbook.Worksheets.Add(after:=Worksheets(Worksheets.Count))
csvworksheet.Name = Left(filename, Len(filename) - 4)
配合
csvworksheet.Delete |
|