返回列表 上一主題 發帖

[發問] 有關CSV檔的問題(已解決)

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-19 10:27 | 只看該作者

[發問] 有關CSV檔的問題(已解決)

本帖最後由 icestormer 於 2012-4-27 10:00 編輯

'將工作表的內容儲存為CSV格式檔案
Sub WriteCsv()
    Dim myTxtFile As String, myFNo As Integer
    Dim myLastRow As Long, i As Long
      
    Application.ScreenUpdating = False
   
    myTxtFile = ActiveWorkbook.Path & "\Numazu.csv"
   
    Worksheets("郵遞區號2").Activate
    myLastRow = Range("A1").CurrentRegion.Rows.Count
   
    myFNo = FreeFile
    Open myTxtFile For Output As #myFNo
   
                     For i = 1 To myLastRow
                                                   Write #myFNo, Cells(i, 1), Cells(i, 2), Cells(i, 3), _
                                                                                    Cells(i, 4), Cells(i, 5), Cells(i, 6)
                    Next  
                     Close #myFNo            
    MsgBox "「郵遞區號2」工作表內的資料將建立為「Numazu.csv」檔案。"
End Sub
=========================================================================
請問 紅字部份程式碼 有沒有什麼法子可以使用雙迴圈且可以正確顯示成如下述的樣子?

如果資料是長這樣:
A              B            C              D
-----------------------------------------
都市     支局      區號     5碼區號
高雄     高2        200        20058
-----------------------------------------
能否用雙迴圈方式 ,讀取資料後>開打CSV檔 ,資料還是會保持上述的形態??

我自己用雙迴圈不管怎試都會變成
A           B         C                D
--------------------------------------
都市
支局
區號
5碼區號
高雄
高2
200
20058


由於資料可能多達 2 3X個以上 如果不能使用雙迴圈..就得像範列中那一樣要寫入幾個資料就得手動寫幾個CELLS才行了  不知有沒有其它更高的方式也能達成?
收藏 分享

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-4-19 10:58 | 只看該作者
回復 1# icestormer
問題是出在 Write 上， 當它寫完一筆，就自動送出一個 LineFeed/Carriage Reutn (0D/0A)
我不熟悉 VBA 的 Write 的尾端能否有 ";" 的 表達方式。

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
3#
發表於 2012-4-19 11:07 | 只看該作者
回復 2# c_c_lai


  謝 所以你的意思是 由於 沒有斷行 才會導致全部資料變成同一列??

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2012-4-19 11:28 | 只看該作者
回復 3# icestormer
For i = 1 To myLastRow
    Write #myFNo, Cells(i, 1), Cells(i, 2), Cells(i, 3), _
           Cells(i, 4), Cells(i, 5), Cells(i, 6)
Next  

執行後會是如下結果：
-----------------------------------------
都市     支局      區號     5碼區號
高雄     高2        200        20058
-----------------------------------------

如果改寫成雙迴圈模式：

For i = 1 To myLastRow
    For j = 1 To 6
        Write #myFNo, Cells(i, j)
    Next j
Next i

其結果會是：
--------------------------------------
都市
支局
區號
5碼區號
高雄
高2
200
20058
--------------------------------------

您可以試試能否 (VBA) 使用 Write #myFNo, Cells(i, j) ; 的方式撰寫，
j 迴圈結束後，接著再送出一個 Line Feed (\n)
(這是 C 語言的寫法，不知 VBA 可行否？)。

TOP

chen_cook

帖子
81 
主題
2 
精華
0 
積分
95 
點名
359  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-29 
最後登錄
2024-12-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
5#
發表於 2012-4-19 14:55 | 只看該作者
回復 1# icestormer


    不好意思,真的看不懂你要什麼,若是單純轉存.csv檔,在excel中另存成為.csv就好了不是嗎??

TOP

chen_cook

帖子
81 
主題
2 
精華
0 
積分
95 
點名
359  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-29 
最後登錄
2024-12-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
6#
發表於 2012-4-19 15:02 | 只看該作者
For i = 1 To myLastRow
                                                  ' Write #myFNo, Cells(i, 1), Cells(i, 2), Cells(i, 3), _
                                                                                    Cells(i, 4), Cells(i, 5), Cells(i, 6)
                                                  Write #myFNo, Cells(i, 1) &"," & Cells(i, 2) &"," & Cells(i, 3) &"," & _
                                                                                    Cells(i, 4) &"," & Cells(i, 5) &"," & Cells(i, 6)

                    Next  
還是因csv是採","為分界 ,與它有關嗎??

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
7#
發表於 2012-4-19 19:42 | 只看該作者
For i = 1 To myLastRow
                                                  ' Write #myFNo, Cells(i, 1 ...
chen_cook 發表於 2012-4-19 15:02



    ' Write #myFNo, Cells(i, 1), Cells(i, 2), Cells(i, 3), _
                                                                                    Cells(i, 4), Cells(i, 5), Cells(i, 6)
                                                  Write #myFNo, Cells(i, 1) &"," & Cells(i, 2) &"," & Cells(i, 3) &"," & _
                                                                                    Cells(i, 4) &"," & Cells(i, 5) &"," & Cells(i, 6)

目前就是想把EXCEL中的資料轉存成CSV檔 這動作也沒有問題 例如 資料行有100行我就得設 cells(i,1)~~~cells(i,100) 我想採雙迴圈或陣列還是有其它高明的方法 不用從1設到100
遇到的問題是 如果我採用雙迴圈 就會導致我開頭說的那行 全部資料都變成同一列了...

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
278  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2012-4-19 20:06 | 只看該作者
回復 7# icestormer
  1. Sub nn()
  2. CSVText = ThisWorkbook.Path & "\MyCSV.csv"
  3. ar = Range("A1").CurrentRegion.Value
  4. Open CSVText For Output As #1
  5. For i = 1 To UBound(ar, 1)
  6. mystr = Join(Application.Index(ar, i), ",")
  7. Print #1, mystr
  8. Next
  9. Close #1
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
9#
發表於 2012-4-19 22:51 | 只看該作者
本帖最後由 icestormer 於 2012-4-19 23:04 編輯

回復 8# Hsieh


感謝 版主  那程式碼可以順利執行 ^^

另外想請問 大家 另一個問題 如果我想設計一個密碼更新的巨集 ,也都會成功執行完成(有更新成功),
但我發現 好像必需要把密碼的值存在工作表上的儲存格上,並存檔後 才能有作用
不然只要我關掉程式 就=沒更新了 還是 原本 就是要把密碼儲存在某一個工作表上了?

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題