テスト投稿

初投稿です。

これから作成したVBAコードを備忘録代わりに投稿していきます。

初心者で勉強中ですが、同じ初心者の方の参考になれば、と思います。

備忘録代わりのため、投稿の順番は基本的に作った順番です。

しかもコード中のコメントは自分がわかるようにしか書いてないです。

ご了承ください。

 

 

HTMLも未履修ですが、コードの部分がわかりやすいようにテキストボックスだけ急ぎで勉強しました。

今回は表示がうまくいっているか確認のための投稿です。

※上手にコードを表示させる方法をご存じの方がいましたら、コメントをお待ちしております。

 

【CSV取込】                
〇 概要    
    [data]シートに.csvファイルのデータを取り込む。    
〇 マクロ内容    
    ・ダイアログで指定した.csvファイルをデータとして[data]シートに取り込む。    
    ・前に取り込まれていたデータはクリアされ、新しいデータだけを表示する。    
〇 使い方    
    1. 実行するブックに[data]シートを追加する。 

    2. 実行ボタンを押す。   
〇 変更方法    
    特に変更することはない。    
 

Sub csv取込()

'開きたいファイルをダイアログで選択するプログラム---------------
    Dim FileType As String, Title As String, FileName As Variant
    FileType = "CSV ファイル(*.csv), *.csv,テキストファイル (*.text),*.text"
    Title = "ファイルを選択してください"
    ChDir "C:\"
    FileName = Application.GetOpenFilename(FileType, , Title)
'ファイルが選択されなければ終了
    If FileName = False Then
        Exit Sub
    End If
'----------------------------------------------------------
'「data」シートの値をクリア(前回実行時のデータが残っているかもしれないから)
    Sheets("data").Cells.ClearContents
    'ファイルの読み込み方法を決める-------------------------------------
    Dim qt As QueryTable
    'ダイアログで選択したファイルパスを取得しA1からデータ格納する
    Set qt = Sheets("data").QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=Sheets("data").Range("A1")) 
    With qt
        .TextFilePlatform = 932 '文字コードの選択(932がShift_JIS, 65001がUTF-8)
        .TextFileParseType = xlDelimited '区切りを自分で設定する
        .TextFileCommaDelimiter = True 'カンマ
        .TextFileSpaceDelimiter = False 'スペース
        .TextFileSemicolonDelimiter = False  'セミコロン
        .TextFileTabDelimiter = False 'タブ
'       .TextFileOtherDelimiter = "(任意の文字")
        .RefreshStyle = xlOverwriteCells 'セルへの上書き
        .Refresh 'データの表示
        .Delete 'クエリテーブルの削除
    End With
End Sub