エクセルVBAを自力で勉強中です。
Filename:=Left(ThisWork・・・ の意味が知りたいです。
具体的には、
作業中のファイルがあるフォルダに、アクティブシートを保存したいと思って、いろいろ調べた結果、
Worksheets.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & Format(Now(), "yyyy-mm-dd-hh-mm-ss")
と書くと、アクティブシートが、元ファイルのあるフォルダにPDFで保存できました。
このコードは、ネットで探したものをコピペでつなぎ合わせました。
このコードのなかで、
Worksheets.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
の意味はなんとかわかりました。
Filename:=Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & Format(Now(), "yyyy-mm-dd-hh-mm-ss")
の内、
& Format(Now(), "yyyy-mm-dd-hh-mm-ss")
の部分は、ファイル名をどうするのか、を書いているのだと理解しています。
調べても意味が理解できなくて困ってる部分は次のところです。つまり、
Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))
の部分です。この部分を、
ActiveWorkbook.Path
に変えると、アクティブシートが、元ファイルのあるフォルダにPDFで保存できなかったので、
Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))
のどこかの部分のおかげで、アクティブシートが、元ファイルのあるフォルダにPDFで保存できるのだと考えています。
この部分の意味がわかると、応用も利くと考えて、コードの意味するところをネットで調べるのですが、
Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))
の、どの部分の記述で、作業中のファイルがあるフォルダに、アクティブシートを保存することができたのか、自力で調べて理解することが難しいです。
Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))
の、どの部分の、どのような記述で、作業中のファイルがあるフォルダに、アクティブシートを保存することができたのか、教えてほしいです。
どうぞよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))
は
Left(文字列,長さ)の構文で、文字列の左側から長さ分の文字列を取り出します。
文字列は、ThisWorkbook.FullNameなのでこのブックの絶対パスが格納されています。
このブック名がBook1.xlsmで、C:\sampleに格納されていれば
文字列は C:\sample\Book1.xlsm になります。
ここから、ドット(.)までの文字列を取り出す場合は、ドットの位置は左から16桁目なので
Left("C:\sample\Book1.xlsm",16)とすれば "C:\sample\Book1." が取り出せますが
問題はどうやって16の値を取得するかです。
そのために、
InStrRev(文字列, ".")を行います。
これは、ドットの位置を文字列の後ろから検索し、そのドットの位置を返す関数です。
従って、(ThisWorkbook.FullNameは"C:\sample\Book1.xlsm"になるので)
InStrRev("C:\sample\Book1.xlsm", ".") により、ドットを後ろから探して、16の値を取得します。
最終的に
Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) により
このブックの完全パス名から拡張子(xlsm)を除いた部分を取得します。
(ちなみにInStrRevは後ろから文字を検索しますが、前から検索しないのは、例えばブックの格納フォルダ名が
"C:\sapmple.01"のようにフォルダ名の中にドットが含まれても正しく処理できるようにするためです)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) エクセル マクロ 3 2022/12/12 00:38
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
(UWSC)ファイルを作るときに、...
-
VB .netでドキュメントにフォル...
-
META-INFフォルダの置き場所に...
-
フォルダのサイズを一覧にした...
-
ファイル名と同名のフォルダを...
-
jQueryPlugin「fancybox」のパス
-
多量のファイルをフォルダに自...
-
フォルダ選択ダイアログ:ネッ...
-
画像をコピーしてリネームする...
-
ExcelのVBAでの複数階層からの...
-
VBA フォルダ名に特定の文字を...
-
バッチファイルを変数で作成したい
-
あるフォルダの中にあるファイ...
-
MinGWで正規表現(regex.h)がし...
-
Windows Python初心者です。 im...
-
Excel VBA で フォルダ名の一部...
-
Access VBA で フォルダ権限...
-
【マクロ】ファイル名の日付に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報