Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66859 / 76732 ←次へ | 前へ→

【14432】Re:wordを検索しそのファイルを名前を変えて保存
お礼  cond-fit E-MAIL  - 04/5/28(金) 20:05 -

引用なし
パスワード
   ▼ichinose さん:
>▼cond-fit さん:
>こんばんは。
>
>>ExcelからWordのあるファイルを検索しそのファイルを名前を変えて保存する処理なのですが、検索は出来たのですがそのファイルを名前を変えて保存方法がわかりません。
>
>↑これが仕様だと額面どおり受け取るならば、
>ワードのインスタンスを作成する必要はなさそうですが・・・。
>つまり、xxxx.docというファイルを名前を変えてコピー出来ればよい訳ですよね?
>'=============================
>Sub main()
>  Dim 元ファイル名 As String
>  Dim 新ファイル名 As String
>  元ファイル名 = "D:\My Documents\TESTエリア\sample.doc"
>  新ファイル名 = Application.InputBox("ファイル入力")
>  If 新ファイル名 <> "False" Then
>   If flcopy(元ファイル名, "D:\My Documents\TESTエリア\" & 新ファイル名) = 0 Then
>     MsgBox "コピー成功"
>   Else
>     MsgBox "コピー失敗"
>     End If
>   End If
>End Sub
>'==================================================================
>Function flcopy(s_file As String, c_file As String) As Long
>  On Error Resume Next
>  filecopy s_file, c_file
>  flcopy = Err.Number
>End Function
>
>ワード文書を開いて中身も変更して保存だ というなら
>Wordにもマクロの記録がありますから、
>保存操作をしてみて下さい。

ありがとうございます。
早速確認してみます。

0 hits

【14387】wordを検索しそのファイルを名前を変えて保存 cond-fit 04/5/27(木) 21:08 質問
【14390】Re:wordを検索しそのファイルを名前を変え... ichinose 04/5/27(木) 23:48 発言
【14432】Re:wordを検索しそのファイルを名前を変え... cond-fit 04/5/28(金) 20:05 お礼
【14433】Re:wordを検索しそのファイルを名前を変え... cond-fit 04/5/28(金) 20:58 質問
【14445】Re:wordを検索しそのファイルを名前を変え... ichinose 04/5/29(土) 10:01 発言
【14454】Re:wordを検索しそのファイルを名前を変え... cond-fit 04/5/29(土) 18:09 お礼

66859 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free