註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» excel vba 批次將某個sheet另存csv檔
返回列表
下一主題
上一主題
發帖
[發問]
excel vba 批次將某個sheet另存csv檔
joey0415
發短消息
加為好友
joey0415
(joey0415)
當前離線
UID
198
帖子
361
主題
57
精華
0
積分
426
金錢
426
點名
0
作業系統
win7
軟體版本
2003,2010
閱讀權限
20
性別
男
在線時間
917 小時
註冊時間
2010-5-13
最後登錄
2022-12-8
暱稱:
joey0415
中學生
帖子
361
主題
57
精華
0
積分
426
點名
0
作業系統
win7
軟體版本
2003,2010
閱讀權限
20
性別
男
註冊時間
2010-5-13
最後登錄
2022-12-8
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2013-8-1 00:56
|
只看該作者
[發問]
excel vba 批次將某個sheet另存csv檔
本帖最後由 joey0415 於 2013-8-1 00:59 編輯
小弟有參考
http://forum.twbts.com/thread-6347-1-1.html
,可以指定sheet,將其存成
csv
檔
問題
是這樣
小弟將網頁上的資料放進sheet2中,指定sheet2存成csv檔,單一個沒有問題
若是將A網頁下載後,放至SHEET2中,存檔成功,之後若將SHEET2.CELLS.CLEAR後
再將B網頁下載,放進SHEET2,再存檔時會發生問題,問題如圖
不過若將SHEET2.CELLS.CLEAR這句話
註解
後,程式可以跑完沒有問題,但是檔案的內容越來越來,資料有重覆
不之是哪方面的問題,請高手指點一下
以下是錯誤語句
下載
(61.32 KB)
2013-8-1 00:53
以下是檔案寫入是空值
下載
(23.48 KB)
2013-8-1 00:53
將SHEET2.CELLS.CLEAR後,可以run但是資料是錯誤的
下載
(73.21 KB)
2013-8-1 00:53
sheet2中資料表的內容如下
下載
(43.69 KB)
2013-8-1 00:56
部份代碼如下:
Dim myTxtFile As String, myFNo As Integer
Dim myLastRow As Long
Worksheets(2).Activate
CSVText = ThisWorkbook.Path & "\" &
For
mat(Date, "yyyymmdd") & "_" & Sheet1.Cells(j, 1) & ".csv"
ar = Sheet2.Range("A1").CurrentRegion.Value
Open CSVText For Output As #1
For i = 1 To UBound(ar, 1)
mystr = Join(Application.Index(ar, i), ",")
Print #1, mystr
Next
Close #1
' Sheet2.Cells.Clear
Next
複製
代碼
樓主熱帖
請問資料庫「唯讀」,可以修改嗎?
JAVA從入門到精通影音教學
excel vba (插入資料)insert 進 sqlite 緩
excel vba 查詢 Sqlite資料庫(設定與語法)範
自製電子書PHP教學900例
WORD排版影音教學
合併資料表語法問題?
執行階段錯誤13 型態不符合
字串分割與換行?
系統登錄中找不到適當的型別程式庫
收藏
分享
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
2
#
發表於 2013-8-1 15:56
|
只看該作者
回復
1#
joey0415
上傳檔案 看看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.
TOP
joey0415
發短消息
加為好友
joey0415
(joey0415)
當前離線
UID
198
帖子
361
主題
57
精華
0
積分
426
金錢
426
點名
0
作業系統
win7
軟體版本
2003,2010
閱讀權限
20
性別
男
在線時間
917 小時
註冊時間
2010-5-13
最後登錄
2022-12-8
暱稱:
joey0415
中學生
帖子
361
主題
57
精華
0
積分
426
點名
0
作業系統
win7
軟體版本
2003,2010
閱讀權限
20
性別
男
註冊時間
2010-5-13
最後登錄
2022-12-8
3
#
發表於 2013-8-1 16:48
|
只看該作者
批次將sheets存成csv檔的語句
網上爬文並錯誤嘗試後,找到可以用的句子
例如:我activate的是
Worksheets(2).Activate
這個工作表
我就將Worksheets(2)工作表存在C中的Marthinus.csv
ActiveWorkbook.SaveAs "C:\Marthinus.csv", fileformat:=6
若是下面這句
'------------------------------ 將sheet2中的資料以指定格式存成csv檔--------------
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & "_" & Sheet1.Cells(j, 1) & ".csv", FileFormat:=6
如果是重覆回圈下載輸出CSV的話,
請記得要將您的指定的Worksheets(2)內容清除Sheet2.Cells.Clear
這樣SHEET2中的資料才會是你想要存的內容
TOP
joey0415
發短消息
加為好友
joey0415
(joey0415)
當前離線
UID
198
帖子
361
主題
57
精華
0
積分
426
金錢
426
點名
0
作業系統
win7
軟體版本
2003,2010
閱讀權限
20
性別
男
在線時間
917 小時
註冊時間
2010-5-13
最後登錄
2022-12-8
暱稱:
joey0415
中學生
帖子
361
主題
57
精華
0
積分
426
點名
0
作業系統
win7
軟體版本
2003,2010
閱讀權限
20
性別
男
註冊時間
2010-5-13
最後登錄
2022-12-8
4
#
發表於 2013-8-1 16:49
|
只看該作者
回復
2#
GBKEE
謝謝GBKEE大
我已找到方法,貼在下面,若再有問題,一定會再請益
感謝
TOP
靜思自在 :
能善用時間的人,必能掌握自己努力的方向。
返回列表
下一主題
上一主題
Excelㄧ般區
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲