|
▼cond-fit さん:
こんにちは。
>>>'=============================
>>>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保存を出来ましたが、Wordで表示出来るのですが、
>保存形式がWord形式では無いのですが。
>何かコマンドが必要なのでしょうか?
ん?どういうことでしょうか?
上記のコードを実行してのことですか?
Inputboxを使っていますから、ファイル名の入力要求をしていますよね?
ここで、例えば、「samp.doc」と入力した場合、どのようになるということですか?
「samp」と入力してしまうと拡張子が付きませんから、Docファイルだと
Windowsは認識しません。よって、アイコンはWordのアイコンにはなりませんよ。
確認してみて下さい。
それから、こういう不具合とか意図した動作ではない場合は、
「このコードを入力データがこれで実行したら、出力がこれになった」
という情報を細かく記述して頂かないと意味がわからない場合が出てきます。
トラブルドキュメントを記述する事も大変だと思いますが、
よろしくお願いします。
|
|