Excel VBA質問箱 IV

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

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


60252 / 76736 ←次へ | 前へ→

【21126】Re:Excelにcsvファイル貼り付け時の処理
質問  Aiz  - 05/1/12(水) 16:42 -

引用なし
パスワード
   返信ありがとうございます。
csvファイルへの入力はフォーマットの決まったExcelファイルを開いたときに自動で読み込むようにしないといけません。
それで返信のあったように外部データ取り込みでやるとうまくいきました。
この外部取り込みをマクロでやろうとしています。
外部取り込みをマクロで登録して、ファイルを読む場所を変更しようとしたのですが、アプリケーション定義またはオブジェクトの定義エラーがでてしまいます。
よろしくお願いします。
ちなみにExcelは2002です。

マクロ修正前↓

fname2 = ActiveWorkbook.Path & "\" & csv2

'CSVファイルの内容を貼り付ける(ボディ部)
  fno = FreeFile
  On Error GoTo file_not_found
  Open fname2 For Input As #fno
  On Error GoTo 0

With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\Documents and Settings\****\My Documents\マスタ出力\ボディ部.csv", _
    Destination:=Range("B5"))  '↑ここのパスを直でなく変数にしたい
    .Name = "ボディ部"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 932
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
  End With


修正後マクロ↓
With ActiveSheet.QueryTables.Add(Connection:= _
    fname2, Destination:=Range("B5"))  '←ここを修正したい。
    .Name = "ボディ部"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 932
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
  End With

0 hits

【21120】Excelにcsvファイル貼り付け時の処理 Aiz 05/1/12(水) 15:16 質問
【21121】Re:Excelにcsvファイル貼り付け時の処理 IROC 05/1/12(水) 15:23 回答
【21126】Re:Excelにcsvファイル貼り付け時の処理 Aiz 05/1/12(水) 16:42 質問
【21133】Re:Excelにcsvファイル貼り付け時の処理 IROC 05/1/12(水) 18:26 回答
【21148】Re:Excelにcsvファイル貼り付け時の処理 Jaka 05/1/13(木) 11:51 回答
【21165】Re:Excelにcsvファイル貼り付け時の処理 Aiz 05/1/13(木) 17:11 お礼

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