①設定,GetOpenFileName,(FSO

背景
投稿者投稿者どらねこ  いいね0  お気に入り登録
プレイ回数330  難易度(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) &