Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1116 / 76732

←次へ　｜　前へ→


	【81272】Re:CSVのヘッダーだけExcelで表示させるには

VBA初心者です - 20/4/29(水) 11:34 -


	引用なし

	パスワード

あ！すいません。無知なものであれで完結なのかと思っていました。
サンプルを見ながらコードを打ったのではなくて、Excelごとダウンロードしたので構造がわかってなかったのですが、別のモジュールにとんでもなく長いコードが入っていました。
今回ダウンロードしたものは全部を表示させるものなので「ふまえて」ではなくて１から作ったほうが良いのかもしれません。

ReadCSV　の記載があるのは･･･

Public Function ReadCSV(ByRef filepath As String, _
　　Optional ByRef OutputWorksheet As Worksheet, _
　　Optional ByRef TextColumns As String = "", _
　　Optional ByRef SkipColumns As String = "", _
　　Optional ByRef ColumnNumberFormats As Object = Nothing, _
　　Optional ByRef ReadHeader As Boolean = True, _
　　Optional ByVal OutputRow As Long = 1, _
　　Optional ByVal OutputColumn As Long = 1, _
　　Optional ByRef Delimiter As String = ",", _
　　Optional ByRef Charset As String = mc_AutoDetectString, _
　　Optional ByRef Quote As String = """", _
　　Optional ByRef LineEndingCode As String = mc_AutoDetectString, _
　　Optional ByRef AutoFit As Boolean = True) As Worksheet

　Dim CSV As Variant
　CSV = ReadCSVToArray2D(filepath, SkipColumns, ReadHeader, Delimiter, Charset, Quote, LineEndingCode)
　
　If OutputWorksheet Is Nothing Then
　　Set OutputWorksheet = Worksheets.Add
　End If
　
　Call Array2DToWorksheetWithColumnFormat(OutputWorksheet, CSV, TextColumns, SkipColumns, ColumnNumberFormats, OutputRow, OutputColumn, AutoFit)
　
　Set ReadCSV = OutputWorksheet
End Function

上記になっておりますが、これ以外にも沢山記述がありました･･･

上記がわからない中、先程お教えいただいたコードがどういった意味を持つものか調べてみます･･･

お手数をおかけしてしまいすいません･･･

0 hits

▼

【81267】CSVのヘッダーだけExcelで表示させるには VBA初心者です 20/4/29(水) 0:59