|
▼かなえ さん:
横から失礼します。
>>Open "E:\" & FileName.Text & ".TXT" For output As #ファイル番号
>>
>の指定で、ファイルを指定して開くダイアログを使用したい場合は
>どのように記述すればよいでしょうか?
サンプルです。
Sub TEST()
Dim varFileName As Variant
Dim ファイル番号 As Integer
Dim S As String
varFileName = Application.GetOpenFilename("Text File (*.txt), *.txt")
If varFileName = False Then Exit Sub
ファイル番号 = FreeFile
Open varFileName For Output As #ファイル番号 'OutPutだから中身無し
Print #ファイル番号, "TEST です。" ' 書き込んでみる
Close #ファイル番号
' チョット間を置く
Application.Wait Now + TimeValue("0:00:02")
ファイル番号 = FreeFile
Open varFileName For Input As #ファイル番号 '
Line Input #ファイル番号, S ' 読み込んでみる
Close #ファイル番号
MsgBox S
End Sub
|
|