エクセルVBAでダブルクォーテーションで囲まれているCSVファイルを取り込む | 隣IT
一般的なCSVファイルを取り込むプログラムのおさらい まずは一般的なCSVファイルを取り込むプログラムについて、おさらいをしておきたいと思います。 Sub getCSV() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim strPath As String strPath = "C:\Users\Noriaki\Dropbox\40_ブログ\vba-csv\test\ラーメン店アンケート_dq.csv" Dim i, j As Long Dim strLine As String Dim arrLine As Variant 'カンマでsplitして格納 Open strPath For Input As #1 'csvファイルをオープン i = 1 Do Until EOF(1) Line Input #1, str
遅い…重い…そんなエクセルVBAプログラムの処理速度を劇的に改善する方法 | 隣IT
みなさん、こんにちは！ タカハシ(@ntakahashi0505)です。 せっかく組んだエクセルVBAの実行速度が遅いな～って時ありませんか？ 読み書きするデータ数が多かったり、ファイルにたくさんの計算式が仕込まれていたりすると、とっても遅くなってしまうことがあります。 しかも実行中って、PCが使えないわけではないのですがアプリケーションが「応答なし」になると嫌なので、結局待たなくてはなりませんよね。 そんな時にエクセルVBAのプログラムの処理速度を速くするステキなテクニックを紹介します。 また、合わせてプログラムの実行時間を測定する方法についてもお伝えしますね。 これで重いマクロともオサラバ…では早速行ってみましょう！ 今回の課題とするプログラム 処理速度を無駄に稼ぐだけのこんなプログラムを用意してみました。 Sub MySub() Sheet1.Cells.Clear Sheet2.C
エクセルVBAでテキストファイルに書き出す最も簡単なプログラム | 隣IT
エクセルシートを一行ずつテキストファイルに出力するシンプルなプログラム 例えば以下のような何の変哲もないエクセルシートがあります。 このA列をテキストファイルに書き出すというプログラムを作っていきたいと思います。 プログラムはこちらです。 Sub makeText() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim datFile As String datFile = ActiveWorkbook.Path & "\data.txt" Open datFile For Output As #1 Dim i As Long i = 1 Do While ws.Cells(i, 1).Value <> "" Print #1, ws.Cells(i, 1).Value i = i + 1 Loop Close #1 Ms
エクセルVBAでCSVデータをカンマで区切ってワークシートに取り込む方法 | 隣IT
CSVファイルの内容を1行ずつ取り込んでデバッグプリントする方法を解説しました。 ただ、実際にエクセルで取り扱う場合は、この一行ずつの文字列をカンマで区切って表形式にする必要がありますよね。 今回は、Splitという命令を使ってCSVから取り込んだ一行ずつ取り込んだ文字列をカンマで区切ってワークシートに転記をする方法です。 では、いってみましょう！ 前回のおさらい：CSVファイルを一行ずつ読み取るシンプルなプログラム まず前回のおさらいですが、プログラムはコチラでした。 [vb] ‘CSVファイルの取り込み 一行ずつ取得してDebug.Printをする Sub openCSV() Dim strPath As String strPath = “C:\Users\Noriaki\Dropbox\40_ブログ\vba-csv\test\ラーメン店アンケート.csv” Open strPath
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
