| |
▼マナ さん：
>▼katsura さん：
>
>filecopyとgetopenfilenameを使うとよいです。
>
>ht tp://officetanaka.net/excel/vba/statement/FileCopy.htm
>ht tps://www.moug.net/tech/exvba/0060013.html
ありがとうございます。
ファイルを選択するところまでは作ったのですが、クリックしたエクセルをコピーする書き方がわかりません。
なにか見本があったらお願いしたいのですがよろしくお願いいたします。
Sub フォルダを開きファイル選択をしてコピーする()
Dim OpenFileName As String, FileName As String, Path As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If OpenFileName <> "False" Then
FileName = OpenFileName '←←←【パスとファイル名取得】
Else
MsgBox "キャンセルされました"
End If
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 19/3/22(金) 15:28 -
