VBA初心者です。
下記コードを書き、実行したところ、
エクセルが開かなくなりました。
ただファイルを選択して何もせず、保存して閉じるの確認がしたかったのですが…
また、選んだエクセルを削除しようとしても、開いているので消せませんのエラーが出ます。
このコードのどこが問題なのでしょうか?
また、開いたシートに対して処理を行いたいのですが、
' 処理実行(一旦これはしない)
' Module1.Sample
と書いた場合、Sampleの先では、開いたファイルがActiveWorkbook.Worksheetsになるのでしょうか?
VBA
1Sub ボタン1_Click() 2 3 Dim OpenFileName As String 4 Dim fType As String 5 Dim wb As Workbook 6 7 ' 選択できるファイルの種類をxlsに限定(全ファイル指定はfType = "") 8 fType = "Microsoft Excelブック,*.xls?" 9 10 ' 選択画面の表示 11 OpenFileName = Application.GetOpenFilename(fType) 12 13 If OpenFileName = "False" Then 14 MsgBox "キャンセルされました" 15 Exit Sub 16 End If 17 18 Set wb = Workbooks.Open(OpenFileName) 19 Windows(wb.name).Visible = False 20 21 ' 処理実行(一旦これはしない) 22 ' Module1.Sample 23 24 wb.Save 25 wb.Close 26 27End Sub
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。