Excel VBA質問箱 IV

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

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


46826 / 76732 ←次へ | 前へ→

【34873】CSVファイルを選択してインポート
質問  初心者m(__)m E-MAIL  - 06/2/15(水) 13:58 -

引用なし
パスワード
   いつも有難うございます。
過去ログをみて自分なりに組み立ててもうまくいかない
ので教えてください。
記録マクロで作った以下の記述に改良を加え、
部門ごとのデータ.csvを選択できるように
したいのです。

--------------------------------------------記録マクロ-------
Sheets.Add
  With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;\\test\test\部門ごとのデータ.csv", _
    Destination:=Range("A1"))
    .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 = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
  End With
------------------------------------------------------------------

以下のようにファイル読み込みをすると、文字列で取り込みたい
データが数値に読まれ指数表示になってしまうので、後の加工で
不都合が生じます。
良い方法がありましたら、ご教示頂けると助かります。

------------------------------------------------------------------
ファイル選択 タイトルD, パスD, フォルダD, ファイルD, 処理情報
  If 処理情報 = 2 Then
    MsgBox "ファイルの指定がありませんでした"
    Exit Sub
  End If
  On Error GoTo FileLdError
  Workbooks.Open Filename:=パスD    '指定ファイルOPEN
  On Error GoTo 0
  Exit Sub
FileLdError:
  MsgBox "ファイル名は正しいですか?確認して下さい。"
  Resume Next
End Sub
0 hits

【34873】CSVファイルを選択してインポート 初心者m(__)m 06/2/15(水) 13:58 質問
【34875】Re:CSVファイルを選択してインポート Jaka 06/2/15(水) 17:02 発言
【34877】Re:CSVファイルを選択してインポート 初心者2 06/2/15(水) 18:38 お礼

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