Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27112 / 76732 ←次へ | 前へ→

【54944】1つのファイルを複数のCSVファイルにしたいのですが・・・
質問  src  - 08/4/6(日) 1:14 -

引用なし
パスワード
   今、1つのファイルデータをマクロで、
複数のCSVファイルにしようと思っています。

WS_k(i, 1)が種別になってまして、これが変わったとき、
種別 + ”コード”という名前で保存しようと考えています。

自分なりに作ってみたのですが、
中身のデータが少なかったり、
10列まであるデータが5列位までしかなかったり、
書き方がどこか間違えているようです…。

どうすれば、よいのか、ご享受ください。
または、他の良い方法があれば、教えてください。
どうぞ、よろしくお願いいたします。


Sub データ作成()
  Dim i   As Integer
  Dim j   As Integer
  Dim buf  As String
  Dim code As String
  
  FileName1 = Workbooks(1).Path
  FileName1 = FileName1 & "\コード.csv"

  FileNum = FreeFile
  Open FileName1 For Output As FileNum
  
  Set WS_k = Worksheets("商品シート").Cells
  buf = ""
  i = 1
  code = WS_k(i, 1)
  Do Until WS_k(i, 1) = ""

    If code <> WS_k(i, 1) Then
      Workbooks.Open Filename:=FileName1
      ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & _
      "\" & StrConv(code, vbWide + vbUpperCase) & "コード.csv"
      ActiveWorkbook.Close
      Close FileNum
      FileNum = FreeFile
      Open FileName1 For Output As FileNum
      code = WS_k(i, 1)
    End If
    
    For j = 1 To 10
      buf = buf & Trim(WS_k(i, j)) & ","
    Next j
    Print #1, (buf)
    buf = ""
    i = i + 1
  Loop
  Close FileNum
End Sub

0 hits

【54944】1つのファイルを複数のCSVファイルにしたいのですが・・・ src 08/4/6(日) 1:14 質問
【54945】Re:1つのファイルを複数のCSVファイルにし... Hirofumi 08/4/6(日) 8:12 回答
【54946】Re:1つのファイルを複数のCSVファイルにし... src 08/4/6(日) 9:20 お礼
【54947】Re:1つのファイルを複数のCSVファイルにし... Hirofumi 08/4/6(日) 9:21 回答
【54948】Re:1つのファイルを複数のCSVファイルにし... src 08/4/6(日) 10:01 お礼

27112 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free