Excel VBA質問箱 IV

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

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


8022 / 76732 ←次へ | 前へ→

【74290】Re:CSVファイルの読み込みの繰り返し
発言  Ib(初心者)  - 13/5/14(火) 11:31 -

引用なし
パスワード
   昨夜、自分なりにいじってみたのですが、デバックエラーの連続で進まなかったコードも載せてみます。
あまり知識がないままいじってみてしまったので、的外れなのかもしれませんが、
これを実行してもSaveAsメソッドが失敗と出てしまいます。

先ほど載せ忘れたのですが、エラーの起きる位置は

shT.Parent.SaveAs Filename:=パス名 & "\" & セル内容 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

の部分です。


Sub 角丸四角形3_Click()

  Dim strFileName As String
  Dim セル内容, パス名 As String
  Dim shT As Worksheet
  Dim shF As Worksheet
  Dim myA As Variant
  Dim myR As Range
  Dim x As Long
  Dim NameC(5) As String
  Dim i As Integer
 
  Application.ScreenUpdating = False

 
  ' オープンするCSVファイルのフォルダを C:\ として
  ' ファイルオープンのダイアログを開く
  ChDir ("C:\")
  strFileName = Application.GetOpenFilename("CSVファイル (*.CSV),*.CSV", 1, "ファイルを選択")
  If strFileName = "False" Then Exit Sub 'キャンセルボタンなら終了
 
  NameC(5) = Range("B4,B300,B600,B900,B1200,B1500") '■新規ブック名開始セル
   
  'Csvファイルのシートを規定
  Set shF = Workbooks.Open(Filename:=strFileName).Sheets(1)
  ThisWorkbook.Sheets("データ入力場所").Copy 'このシートをコピーして新規ブックを生成
  Set shT = ActiveWorkbook.Sheets(1)     '新規ブックのシートを規定
  パス名 = CreateObject("WSCript.Shell").SpecialFolders("MyDocuments")  '★保存場所
 
  For Each myA In Array("A2:R272", "A273:R543", "A544:R815", "A816:R1085", "A1086:R1356", "A1357:R1627")  '●ここで転記元領域を規定。いくつでもOK
    Set myR = shF.Range(myA)
    i = 0
    セル内容 = NameC(i)
    myR.Copy shT.Range("A3")
    Application.DisplayAlerts = False  '同名ブックがあれば無条件上書き
    shT.Parent.SaveAs Filename:=パス名 & "\" & セル内容 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
    shT.Range("A3").Resize(myR.Rows.Count, myR.Columns.Count).ClearContents
    i = i + 1
  Next
 
  shF.Parent.Close False   'CSVファイルを閉じる
  shT.Parent.Close False   '作成した新規ブックを閉じる
 
  Application.ScreenUpdating = True
  MsgBox "処理終了"
 
End Sub


何度も申し訳ありません。ご親切に教えていただけて、本当に感謝しております。
何卒よろしくお願いいたします。

4 hits

【74273】CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/13(月) 11:32 質問
【74274】Re:CSVファイルの読み込みの繰り返し UO3 13/5/13(月) 16:26 発言
【74275】Re:CSVファイルの読み込みの繰り返し UO3 13/5/13(月) 16:55 発言
【74279】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/13(月) 19:30 回答
【74282】Re:CSVファイルの読み込みの繰り返し UO3 13/5/13(月) 21:12 発言
【74283】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/13(月) 22:26 質問
【74284】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 0:02 質問
【74287】Re:CSVファイルの読み込みの繰り返し UO3 13/5/14(火) 7:56 発言
【74289】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 11:14 発言
【74290】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 11:31 発言
【74291】Re:CSVファイルの読み込みの繰り返し UO3 13/5/14(火) 18:12 発言
【74292】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 20:30 発言
【74294】Re:CSVファイルの読み込みの繰り返し UO3 13/5/15(水) 10:07 発言
【74296】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 16:40 発言
【74297】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 19:02 発言
【74298】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 19:15 発言
【74299】Re:CSVファイルの読み込みの繰り返し UO3 13/5/15(水) 21:48 発言
【74300】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 21:53 発言
【74301】Re:CSVファイルの読み込みの繰り返し UO3 13/5/16(木) 6:42 発言
【74302】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/16(木) 10:59 お礼

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