Excel VBA質問箱 IV

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

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


8729 / 76735 ←次へ | 前へ→

【73574】Re:2つ目以降のcsvのタイトル行を削除しつつ結合するには
お礼  にしもり  - 13/1/23(水) 11:46 -

引用なし
パスワード
   ▼kanabunさん、UO3 さん:

アドバイスまことにありがとうございます。

行を削除するので
cBook.ActiveSheet.UsedRange.Offset(1, 0).Copy
でございますよね。

アドバイスを参考に下記の通りできました。
深く感謝いたします。

Sub Test()
Dim Files, FilesCnt As Integer, i As Integer
Dim cBook As Workbook, pBook As Workbook

 Files = Application.GetOpenFilename _
    (FileFilter:="CsVFile(*.csv), *.csv", MultiSelect:=True)
 If IsArray(Files) Then
   Set pBook = Workbooks.Add(xlWBATWorksheet)
   FilesCnt = UBound(Files)
   For i = 1 To FilesCnt
     Workbooks.Open Files(i)
     Set cBook = ActiveWorkbook
'修正    
     If i > 1 Then
      cBook.ActiveSheet.UsedRange.Offset(1, 0).Copy
     Else
      cBook.ActiveSheet.UsedRange.Copy
     End If
     
     With pBook.ActiveSheet
      .Cells(.Range("A65536").End(xlUp).Row, 1). _
      PasteSpecial (xlPasteAll)
     End With
     Application.CutCopyMode = False
     cBook.Close
   Next i
 End If
 
'追加
  
  ActiveWorkbook.SaveAs Filename:="C:\Digital_yyyymmdd.csv", FileFormat:= _
  xlOpenXMLWorkbook, CreateBackup:=False
  
  ActiveWorkbook.Close Filename:="C:\Digital_yyyymmdd.csv"
  
  MsgBox "終了しました。"

  
Set cBook = Nothing: Set pBook = Nothing
End Sub
 
0 hits

【73569】2つ目以降のcsvのタイトル行を削除しつつ結合するには にしもり 13/1/23(水) 2:33 質問
【73571】Re:2つ目以降のcsvのタイトル行を削除しつ... kanabun 13/1/23(水) 9:26 発言
【73572】Re:2つ目以降のcsvのタイトル行を削除しつ... UO3 13/1/23(水) 9:41 発言
【73574】Re:2つ目以降のcsvのタイトル行を削除しつ... にしもり 13/1/23(水) 11:46 お礼
【73575】Re:2つ目以降のcsvのタイトル行を削除しつ... kanabun 13/1/23(水) 13:03 発言
【73702】Re:2つ目以降のcsvのタイトル行を削除しつ... にしもり 13/2/5(火) 19:03 質問
【73704】Re:2つ目以降のcsvのタイトル行を削除しつ... kanabun 13/2/5(火) 20:06 発言
【73714】Re:2つ目以降のcsvのタイトル行を削除しつ... にしもり 13/2/6(水) 11:35 質問
【73722】Re:2つ目以降のcsvのタイトル行を削除しつ... kanabun 13/2/6(水) 18:22 発言
【73728】Re:2つ目以降のcsvのタイトル行を削除しつ... kanabun 13/2/6(水) 22:58 発言
【73738】Re:2つ目以降のcsvのタイトル行を削除しつ... にしもり 13/2/7(木) 14:09 お礼

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