|
横から失礼します。昨日胃カメラで異常が無かったわいわいです。(苦しかったぁ)
Option Explicit '私は付ける癖をつけてます
Sub 自信なし()
Dim WWWOpenFile As Variant
Dim Wkbook As Workbook
Dim WulOpenFile As Workbook '←こうなのか?
Set Wkbook = ThisWorkbook ’これであってますか?
WWWOpenFile = Application.GetOpenFilename("CSVファイル(*.csv),*.csv" _
, FilterIndex:=1, Title:="開く")
'ファイルを開く
If WWWOpenFile <> False Then
Set WulOpenFile = Workbooks.Open(Filename:=WWWOpenFile) '←これですよね?
Cells.Copy
Wkbook.Worksheets("リスト").Range("A1").PasteSpecial
Application.DisplayAlerts = False
WulOpenFile.Close
Application.DisplayAlerts = True
End If
End Sub
質問の意図が、WulOpenFileを使いたい と思ったので使ってみました。
|
|