Excel VBA質問箱 IV

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

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


59512 / 76732 ←次へ | 前へ→

【21907】Re:.csv の保存形式
回答  IROC  - 05/2/3(木) 11:41 -

引用なし
パスワード
   Sub サンプルマクロ()
Dim myDir As String
Dim myFileName As String
Dim wbcsv As Workbook, wscsv As Worksheet
Dim wb As Workbook, ws As Worksheet
Dim r As Long
    
   myDir = "C:\Data\"
   myFileName = Dir(myDir & "*.csv")
  
   Set wb = Workbooks.Add
   Set ws = wb.Worksheets(1)
   ws.Name = "data"
   r = 1
  
   Do While myFileName <> ""
    If myFileName <> ThisWorkbook.Name Then
      Set wbcsv = Workbooks.Open(myDir & myFileName)
      Set wscsv = wbcsv.Worksheets(1)
      
      wscsv.UsedRange.Copy ws.Cells(r, 1)
      r = ws.Range("A65536").End(xlUp).Offset(1).Row
      wbcsv.Close False
      myFileName = Dir()
    End If
   Loop
 
  wb.Activate
  MsgBox "完了"
End Sub

0 hits

【21882】.csv の保存形式 草加Jacky 05/2/2(水) 16:51 質問
【21900】Re:.csv の保存形式 IROC 05/2/3(木) 9:38 回答
【21905】Re:.csv の保存形式 草加Jacky 05/2/3(木) 10:39 発言
【21906】Re:.csv の保存形式 IROC 05/2/3(木) 11:35 回答
【21907】Re:.csv の保存形式 IROC 05/2/3(木) 11:41 回答
【21959】自分で書き出したファイルぐらい読んでほし... 草加Jacky 05/2/4(金) 18:52 お礼
【21965】Re:自分で書き出したファイルぐらい読んで... IROC 05/2/4(金) 20:39 回答
【21966】Re:自分で書き出したファイルぐらい読んで... 草加Jacky 05/2/4(金) 22:44 発言

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