投稿/コメントを表示します。

エクセルマクロ・VBA発展編１
発展１講座第１章 - 総称オブジェクト型

受講生さんの投稿

(投稿ID: 3625)

小川先生、こんにちは。　gooskaです。
オブジェクト型がまだ全然わかっていないです。
今職場で、「操作するファイルと別のところにマクロを置いて動かす」
「操作するファイルに名前をつけて保存する（元のファイル名にBKUPをつけた形で保存」という問題に取り組んでいます。

Sub una0117_005()

Dim f As String
f = ThisWorkbook.Name '現在操作するブックのファイル名を取得
Dim fname As String
Dim kugiri As Long
kugiri = InStr(f, ".xlsm")


Range("A1").Value = f 'ファイル名取得のチェック
Range("A2").Value = InStr(f, ".xlsm") '拡張子までの文字数をチェック
Range("A4").Value = Left(f, InStr(f, ".xlsm")) '拡張子を除くファイル名を切りとれたかのチェック
fname = Left(f, InStr(f, ".xlsm"))

ActiveWorkbook.SaveAs Filename:=fname & "BKUP.xlsm"
　　　　　　　　　　　　　 'ファイル名+BKUPでファイル保存する

End Sub

これで動くことは動くのですが、無理やり感があります。
オブジェクト型変数を使う場合、
どんなふうにすればよいのかわかりません･･( ﾉД`)
お助けいただけないでしょうか。
gooska
2018/01/19 20:43