excel あるいは WORDのVBAで
自己の今使用しているファイル名を読み込んで、
それをnamae(文字列変数)というに入れる処理の
記述法を知りたい。
これを利用して,word利用中、ツールバーに作った専用ボタンで
マクロ起動し、そのファイルをある特定のフォルダ(バックアップ用のサーバ上のフォルダ)へ書き込むことをしたい。
バックアップ用のサーバ上のフォルダ:\\Sh\abc-h_pub$\suzu
Sub testacro()
'gennzai_riyou.doc=namae
ChDir "\\Sh1\abc-h_pub$\suzu"
ActiveWorkbook.SaveAs Filename:= _
"\\Sh\abc-h_pub$\suzu\namae" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
ご指導よろしく
No.3ベストアンサー
- 回答日時:
ど~もぉ。
Wordのマクロは使用したことがないので、
Excelのマクロでお答えします。
まず、「自己の今使用しているファイル名」とは、マクロを記述するファイルのことで良かったのでしょうか?
それなら、
-------------------------------------------------
Sub GetNameTest()
Dim Namae As String
Const FldName As String = "\\Sh\abc-h_pub$\suzu\"
Namae = ThisWorkbook.Name
ThisWorkbook.SaveAs FldName & Namae
End Sub
-------------------------------------------------
ファイルを保存する場合には、エラー処理をする必要がありますが、
ややこしくなりますので、エラー処理を省いております。
なお、他ブックもしくは、他ドキュメントを保存する場合は、記述が全く変わってきます。
どうでしょう。
No.2
- 回答日時:
一般にWordVBAはなじみが無い(解説書がなく、情報が少なくWEBでも散在)のだが
この部分ならワードも同じと思う。
ActiveWorkbookー>ActiveDocument
ーー
Wordでマクロの記録をとってみましたか?
(ChDir の部分を除いては)それで具体的にわかるのでは。
>ツールバーに作った専用ボタンでマクロ起動し、
は人手でのクリックと思うが、マクロのボタン登録になるのかな。
ーー
全体的にサーバー利用環境でうまく行くかは、うまく行かないときは
別質問にすると良い。
ーーー
http://support.microsoft.com/kb/107686/ja
Word による自動バックアップ ファイルの作成、の機能ではおっ着かない?
No.1
- 回答日時:
提示されたマクロはExcelのものですね。
Wordでも似たようなものだと思います。
Sub testacro()
Dim namae As String
'gennzai_riyou.doc=namae
namae = ActiveWorkbook.Name
ChDir "\\Sh1\abc-h_pub$\suzu"
ActiveWorkbook.SaveAs _
Filename:="\\Sh\abc-h_pub$\suzu\" & namae, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コピーしたファイルのマクロを...
-
マクロを消すマクロは不可能?
-
Excel2010 PERSONAL.xlsbの挙動...
-
エクセル終了時の保存確認メッ...
-
アクセスでファイルを開いたと...
-
エクセル2013vbaで、見えない名...
-
個人用マクロブックにマクロを...
-
VBAを一度起動するとずっと出て...
-
VBA マクロ実行時エラー’1004Ra...
-
ワードを開いたときにコントロ...
-
別のパソコンでエクセルのマク...
-
Excelからnotesメールを自動で...
-
エクセルファイルを自身のファ...
-
作成したマクロを共有
-
アクセスからエクセルファイル...
-
Excel>マクロを使っていないは...
-
ご存知の方教えてください!!
-
エクセルVBAを使ってサーバ...
-
excelファイルに使われているVB...
-
Adobe Reader を閉じる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
昨日まで動いていたエクセルの...
-
コピーしたファイルのマクロを...
-
【マクロ】マクロが割当てされ...
-
VBAを一度起動するとずっと出て...
-
VBA マクロ実行時エラー’1004Ra...
-
別のパソコンでエクセルのマク...
-
アクセスでファイルを開いたと...
-
excelファイルに使われているVB...
-
エクセルマクロ実行中に別ファ...
-
マクロを消すマクロは不可能?
-
外部データを取り込むマクロ
-
エクセルファイルを自身のファ...
-
excelが別プロセスで起動してし...
-
【マクロ】エラーが発生⇒実行時...
-
EXCEL マクロ クリップボードク...
-
Excelが勝手にシート移動してし...
-
Excel2010 PERSONAL.xlsbの挙動...
-
エクセル2013vbaで、見えない名...
-
excelでpersonal.xlsを常に開く...
おすすめ情報