①設定,GetOpenFileName,(FSO

背景
投稿者投稿者どらねこ  いいね0  お気に入り登録
プレイ回数355  難易度(3.4) 293打 長文 英字
Excel VBAにおけるデータ高速処理
ファイル名の取得、（必要があればFSOを利用し拡張子変更）

関連タイピング

関連タイピング一覧

問題文

ふりがな非表示 ふりがな表示
(ｏｐｔｉｏｎ　ｅｘｐｌｉｃｉｔ) Option Explicit (ｏｐｔｉｏｎ　ｂａｓｅ　１) Option Base 1 (ａｐｐｌｉｃａｔｉｏｎ．ｓｃｒｅｅｎｕｐｄａｔｉｎｇ＝ｆａｌｓｅ) Application.ScreenUpdating=False (ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ＝ｆａｌｓｅ) Application.DisplayAlerts=False (ｄｉｍ　ｍｙｆ　ａｓ　ｓｔｒｉｎｇ) Dim MyF As String (ｍｙｆ＝ａｐｐｌｉｃａｔｉｏｎ．ｇｅｔｏｐｅｎｆｉｌｅｎａｍｅ（　，　，）) MyF=Application.GetOpenFileName(,,) (ｉｆ　ｍｙｆ＝ｆａｌｓｅ　ｔｈｅｎ) If MyF=False Then (ｅｘｉｔ　ｓｕｂ　 ｅｎｄ　ｉｆ) Exit Sub End If (ｄｉｍ　ｍｙｆｓｏ　ａｓ　ｎｅｗ　ｆｉｌｅｓｙｓｔｅｍｏｂｊｅｃｔ) Dim MyFSO As New FileSystemObject (ｄｉｍ　ｍｙｆｉｌｅ　ａｓ　ｆｉｌｅ) Dim MyFile As File
(ｓｅｔ　ｍｙｆｉｌｅ＝ｍｙｆｓｏ．ｇｅｔｆｉｌｅ（ｍｙｆ）) Set MyFile=MyFSO.GetFile(MyF) (ｍｙｆｉｌｅ．ｎａｍｅ＝ｍｙｆｓｏ．ｇｅｔｂａｓｅｎａｍｅ（ｍｙｆ）　＆) MyFile.Name=MyFSO.GetBaseName(MyF) &