’＊＊＊＊　ファイルを開く　＊＊＊＊
　
'ファイルを開くダイアログボックスを表示させる
'パス名＋ファイル名を得る
fName = Application.GetOpenFilename(FileFilter:="Textファイル(*.txt),*.txt,Excelファイル(*.xls),*.xls", Title:="テキストを開く")
If fName = "False" Then
　　Exit Sub
Else
'指定したファイルを開く（テキストファイル用）
　　Workbooks.OpenText Filename:=fName, DataType:=xlDelimited, Tab:=True, _
　　　　Comma:=True, Space:=False, ConsecutiveDelimiter:=True
End If
　

’＊＊＊＊　ファイルを開く・保存する・フォルダ操作　＊＊＊＊
　
Dim fName As String
　
'ファイルを開くダイアログボックスでパス名を含んだファイル名を得る
fName = Application.GetOpenFilename(FileFilter:="Textファイル(*.txt),*.txt,Excelファイル(*.xls),*.xls", Title:="テキストを開く")
　
’ファイル名を得る
newName = Dir(fName)
　
’テキストファイル名をエクセルファイル名に変える
newName = Left(newName, Len(newName) - 3) & "xls"
　
’フォルダ名取得１
fPath = Left(fName, Len(fName) - Len(newName))
　
’フォルダ名取得２
fPath = Dir(fName,vbDirectory)
　
’ファイルの保存
ActiveWorkbook.SaveAs Filename:=newName, FileFormat:=xlNormal
　
’ファイルの保存
fFilter = "Microsoft Excelブック(*.xls),*.xls"
Get_Filename = Application.GetSaveAsFilename(newName, fFilter)
If Left(Get_Filename, 1) = "A" Then
　　GoTo ErrMsg
End If
If Get_Filename = "False" Then
　　GoTo ErrMsg
End If
ActiveWorkbook.SaveAs (Get_Filename)
　

’ファイルの削除
Kill newName
　
’カレントドライブの変更
ChDrive ("c:\")
　
’フォルダの変更
ChDir "D:\TMP"
　
’名前を付けて保存ダイアログを表示させる
Application.Dialogs(xlDialogSaveAs).Show
　

＊＊＊＊　ファイルを読み込んで変数に格納　＊＊＊＊
Dim fN As String
Dim arrCsvRecs(1 To 58000) As String
　
fN = Application.GetOpenFilename(Title:="テキストを開く")
If fN = "False" Then MsgBox "キャンセルされました": Exit Sub
Open fN For Input As #1
N = 0
Do While Not EOF(1)
　　N = N + 1
　　Input #1, arrCsvRecs(N)
Loop
Close #1