エクセル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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
エクセル マクロを使って同じフォルダ内にPDF保存したい。
Excel(エクセル)
-
-
4
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
5
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
6
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
【マクロ】ファイル名の日付に...
-
バッチファイル フォルダを...
-
保存先のフォルダ名を指定した...
-
フォルダの削除
-
Access VBA で フォルダ権限...
-
batにて、異なるフォルダの同名...
-
ExcelのVBAでフォルダ指定がで...
-
AIX findコマンド
-
VBAにてツリー階層表示ツールの...
-
Excelで指定したフォルダに保存...
-
同一フォルダ内の別ブックから...
-
ファイル名と同名のフォルダを...
-
pythonでDepixを起動
-
EXCELのセルにフォルダのパスの...
-
Excelのハイパーリンクについて...
-
msgファイルを扱いたい
-
ThisWorkbookがあるフォルダ更...
-
フォルダを開いて、閉じるのプ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報