ＣＳＶファイルを一瞬でインポートしたい・・・・・
無駄な手作業を繰り返ししていないか?!!
こんなことで大切な時間を無駄遣いしないように!!
エクセルで読み込むときに・・手間取るのがこれ!!
勝手に数値にしたり、列の指定が面倒くさかったりで・・
なにがなにやら!! って時があります。
これを一瞬で読み込む方法
コードをつけて
実際に動かしてみる事として・・・手順を説明をしていきます。
サンプルのCSVデータ 2600件位のものを準備してみました。
サンプルデータ .csvこれをダウンロードしてみて・・
ワークシートと同じフォルダーに保存しておく。
１．ワークシートを準備します。(サンプルデータを同じフォルダーに保存しておきます。)拡張子はXlsmで
２．VBAを開きます。
３．標準モジュールを追加します。
４．その場所に・・・コードを書きます。
コードは以下のもの
‘————————————————————————–
Sub Csvin2()
Dim CsvPath As String
Dim FileNum As Long
Dim i As Long
Dim n As Long
Dim myStr() As String
Dim myRec As String
Dim FSO As Object
Dim FileRow As Long
Dim csvArray() As Variant
Dim TitlArray() As Variant
Dim MaxCol As Long
Dim Col As Integer
Dim Row As Long
Dim Title As String
Sheets(“Sheet1”).Select
TitlArray = Array(“納品日”, “伝票番号”, “取引先”, “行番”, “商品コード”, “商品名”, “入数”, “C/S数”, “ﾊﾞﾗ数”, “合計数”, “単価”, “横計”, “税区分”)
Range(Cells(2, 2), Cells(2, UBound(TitlArray) + 2)) = TitlArray
CsvPath = ThisWorkbook.Path & “\” & “OgamaUriage.csv”
Set FSO = CreateObject(“Scripting.FileSystemObject”)
With FSO.OpenTextFile(CsvPath, 8)
FileRow = .Line
.Close
End With
Set FSO = Nothing
FileNum = FreeFile
i = 0
MaxCol = 0
Open CsvPath For Input As #FileNum
Range(“A:N”).NumberFormat = “@”
Range(“H:M”).NumberFormat = “###,##0”
Range(“E:E”).NumberFormat = “#”
Do While Not EOF(FileNum)
Line Input #FileNum, myRec
myStr = Split(myRec, “,”)
If MaxCol < UBound(myStr) Then MaxCol = UBound(myStr)
ReDim Preserve csvArray(0 To FileRow, 0 To MaxCol)
For n = 0 To UBound(myStr)
csvArray(i, n) = myStr(n)
Next n
i = i + 1
Loop
Close #FileNum
Range(Cells(3, 2), Cells(FileRow + 3, MaxCol + 2)) = csvArray
Cells(1, 1).Select
End Sub
‘————————————————————————–
５．コードを記載した状態です。
６．標準モジュールのコードを書いたところで ▷ 印で実行をすると・・
７．一瞬で書き込んできます。
８．2600行です。マスター関係を読み込むときは・・とても便利です。
９．ボタン一つで実行したい場合は、書き込んだコードを呼び出すボタンをセットします。
１０．シート上で、ドラッグ&ドロップして、位置サイズを指定します
この状態でボタンをダブルクリックすると
１１．そのボタンをクリックした場合のイベントが開くので・・。
１４．標準モジュールに書いた Sub の次にかいている “Csvin2” がコードの名称なので
これを呼び出すコードを
１５．ボタンを押した場合のイベントに Call ***と書いて呼び出すようにしておけば
１５．セットしたら、デザインモードを終了させて
１５．セットしたら、デザインモードを終了させ、シートをクリアしてボタンをクリックしてみます。
１５．セットしたら、デザインモードを終了させ、シートをクリアしてボタンをクリックしてみます。
でてきたら成功!!
どんとはれ!!
コードがわからない方は・・・
自分で調べる!! ネットに落ちています。!! これ原則!!
そうすると身につきます。
実務で何回も繰り返しているとしみ込んでいきます。
“知行合一”が目的。やらずして語ること勿れ!!
行動するといろいろと、問題が出てきて、
それを乗り越える知恵が必ず沸いてきます。
だからさまざまと工夫を繰り返す。
評論家ではなく、実務家なので・・
理屈やクイズ・資格や試験のための勉強ではなく、実務で使うための体験実践!!。
学校とか研修で教えられたものは、すぐ忘れるし、
分かった様な気がするだけで、実務にはすぐ使えないし、
また・・使わないから、身につかないですよね・・・(^_^;)
必要なことから覚えていく方が早いです。