スポンサーリンク

050-VBA

EXCELのVBAを使ってCSVファイルを開く!エンコードの指定も!

へっぽこヘタレシステム管理者の管理人です。

さて、昨日に引き続き・・・

ある部署からエクセルのマクロの作成を依頼され・・・

その過程で、いくつか部品を作ったので忘備録として掲載します。

スポンサーリンク

ブログランキングにご協力ください!
ブログランキング・にほんブログ村へ

EXCELのマクロを使ってCSVファイルを開く

まずは、コードです。

例では、マクロ1に割り当てています。

Sub Macro1()
'
' Macro1 Macro
'
        Dim ws As Worksheet
        Set ws = ActiveSheet ' CSV のデータを取り込むシート
    
        Dim qt As QueryTable
        Set qt = ws.QueryTables.Add(Connection:="TEXT;ファイルのフルパス", Destination:=ws.Range("A1")) ' CSV を開く

        
        With qt
            .TextFilePlatform = 65001          ' 文字コードを指定

              'エンコード Shift-JIS 932 UTF-8 65001 UTF-16 1200
            .TextFileParseType = xlDelimited ' 区切り文字の形式
            .TextFileCommaDelimiter = True   ' カンマ区切り
            .RefreshStyle = xlOverwriteCells ' セルに上書き
            .Refresh                         ' データを表示
            .Delete                          ' CSV との接続を解除
        End With


End Sub

コードの処理は次のとおりです。

CSVを読み込むシートを指定【例ではアクティブシート】

シートのどこから書き込むか【例ではアクティブシートのA1から】

CSVファイルをフルパスで指定

WITH句で、CSVの条件を指定【例では、カンマ区切り・エンコードはUTF-8】

ブログ開設に必要なドメイン取得、サーバーレンタル、ASPの登録等は、こちらのサイトから!

スポンサーリンク
スポンサーリンク

-050-VBA

執筆者:


comment

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


関連記事

EXCELやACCESSの関数やVBA・SQL文等の忘備録まとめ!

このページでは、管理人が良く使う次のソフト MS-EXCEL(エクセル) MS-ACCESS(アクセス) Oracle(オラクル)SQL について、良く使うけれどもすぐに忘れて、何度も調べ「関数やVB …

EXCELのVBAを使ってDB【Oracle】に接続してSQLを叩く方法!

へっぽこヘタレシステム管理者の管理人です。 さて・・・ 長年、【Oracle】等のDBに接続してSQLを叩く場合は・・・ EXCELでのやり方が分からず・・・ ず~っとMS-ACCESSを使っていまし …

RPA・WinActorの基本操作!アプリケーションの終了と起動!taskkill!

絶賛底辺中の地方公務員の管理人です。 さて、これもすぐに忘れるのですが・・・ WinActorのシナリを作っていると・・・ どうしてもエラー処理で、最終的にアプリケーションを終了させて、再起動する必要 …

アクティブディレクトリー【AD】のグループポリシー【ログオンスクリプト】で資格情報を消すコマンド【cmdkey】が動かなくてハマった件

へっぽこヘタレシステム管理者の管理人です。 さて、職場のパソコン更新時において・・・ 端末設定の段階で、パソコンにサーバーへの管理者権限の資格情報が保存されていたことが判明し、 その対応で奔走した件を …

EXCELのVBAを使って任意のファイルのフルパスを取得する!

へっぽこヘタレシステム管理者の管理人です。 さて、ある部署からエクセルのマクロの作成を依頼され・・・ その過程で、いくつか部品を作ったので忘備録として掲載します。 スポンサーリンク ブログランキングに …

スポンサーリンク
スポンサーリンク
スポンサーリンク