返回列表 上一主題 發帖

如何一次貼一行資料到csv檔?

blueteddy

帖子
5 
主題
4 
精華
0 
積分
9 
點名
0  
作業系統
Window2003 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2011-8-4 
最後登錄
2011-10-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-13 18:52 | 只看該作者

如何一次貼一行資料到csv檔?

csv
因為想很久都不會 想說請教大家一下

如果我vba裡面有一個資料

       For m = 1 To 1020 Step 1

              reserve1(m, 1) = Worksheets("Month_P_RV").Cells(19 + m, 106)

       Next m

該如何一次將reserve1(:,1) 一行資料貼到csv 呢?

我的寫法如下,但會因為資料型態不符  所以無法貼上去
          Reservefilename = Range("outputfile")

          Open Reservefilename For Output As #2

                    Write #2, reserve1,               Write #2,

多謝拉~~
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2011-10-13 23:22 | 只看該作者
Reservefilename = Range("outputfile")
    Open Reservefilename For Output As #2
    For m = 1 To 1020
          Write #2, Worksheets("Month_P_RV").Cells(19 + m, 106)
    Next m
    Close #2

留意有沒有設錯outputfile位置
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題