Excelでディレクトリ内ファイルを取得する
Dir の使い方は、最初のファイルのマッチング（検索）には、必ずFileSpecを記述して使い、２個目以降は FileSpec等は省略し、Dir 単独で使います。マッチングするファイルが見つからない時はNullが返されます。 あるディレクトリにある全てのEXCELファイルを検索するには、以下のコーディングが標準形となります。 Filename = Dir ("*.xls", vbNormal) '�@ Do While Filename <> "" ' ' 処理 ' Filename = Dir () Loop たとえば、Cドライブにある全てのフォルダ名を取得したければ、�@の部分を以下のように記述すれば いいわけです。 Dirname = Dir ("C:\" ,16) ２ 実用例 ある作業用のフォルダをりMOにバックアップしたり、あるいは２箇所（のPC）で作業
Excel VBAでのテキストファイル操作を操作する
本稿で紹介する「テキストファイルの操作」は、Shift-JIS形式のテキストファイルを対象にしています。UTF-8形式のファイルを扱うときは、下記ページをご覧ください。 UTF-8形式のテキストファイルから読み込む UTF-8形式のテキストファイルに書き込む ファイル操作の最後に、テキストファイルへの読み書きテクニックをご紹介します。VBAでマクロを作成していると、たまにテキストファイルへデータを書き込むと便利なケースに遭遇します。たとえば、現在の設定を保存して後で利用したり、ユーザーが行った操作のログを残したり・・・。テキストファイルの操作は Excelのシートやセルの操作とは異なり、どちらかというとVisual Basic的なテクニックです。詳細に解説しているマニュアル本も少ないかもしれません。ここでは、テキストファイルからデータを読み込むときのセオリーや、テキストファイルにデータを書
VBAでの改行コード変換
セル内で改行するには、改行したい位置でAlt+Enterキーを押します。 このとき、入力される改行コードは0A(LF)です。Windowsで使われている一般的な改行コードは0D 0A(CRLF)です。 次のようなコードで確認してみました。 Sub Sample1() Dim buf As String, dmp As String, i As Long buf = Range("B2").Text For i = 1 To LenB(buf) dmp = dmp & Hex(AscB(MidB(buf, i, 1))) & " " Next i MsgBox dmp End Sub Excelは文字データをUnicodeで管理しています。入力したそれぞれの文字に該当する文字コードは次の通りです。 田 : 0x7530 中 : 0x4E2D 1 : 0x0031 2 : 0x0032 3 :
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
