kazoon6のブログ https://ameblo.jp/kazoon6/ ブログの説明を入力します。 ja エクセルファイル読込ダイアログ OpenFileName = Application.GetOpenFilename("Microsoft Excel ブック,*.*")
    If OpenFileName = "False" Then Exit Sub
    Workbooks.Open Filename:=OpenFileName    
    OpenFileName = ActiveWorkbook.Name    
    Set OW = Workbooks(OpenFileName)

]]> https://ameblo.jp/kazoon6/entry-12872065620.html Mon, 21 Oct 2024 10:44:32 +0900 CSVファイル読込ダイアログ     Target = Application.GetOpenFilename("CSVファイル,*.csv?")
    If Target = "False" Then
        MsgBox "ファイルが選択されていません。"
        Exit Sub
    End If

]]> https://ameblo.jp/kazoon6/entry-12872065438.html Mon, 21 Oct 2024 10:42:34 +0900 VB-tips備忘録 備忘録。

]]> https://ameblo.jp/kazoon6/entry-12872064720.html Mon, 21 Oct 2024 10:35:11 +0900