テキストファイル出力の忘備録

VBからテキストファイルを作成し、それをexcelfileで読み込むという作業をよくやる。その方法を忘備録として伝授したい。

◆作成するテキストファイルの名称：myfolder & "\NOTEPAD"

(myfolderは予めユーザー側で指定してください)

例)myfolder=” C:\Users\User\Desktop”

◆content;テキストファイルの中に書き込む内容です

◆fileplace:ファイルの場所を指定してください

◆excelname：excelのファイル名を指定してください。

excel側で、マクロを利用してmyfolder & "\NOTEPAD"　を読み込めるように指定してください。

Fileplaceとmyfolderは同一名称ではなくて、fileplaceはあくまでテキストファイルを保存する場所、myfolderはexcelfileの存在場所です。（このexcelfileを介してfileplaceを開くということです）

‘------------------------------------------------------------------------------------------

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim textfile As IO.StreamWriter

Dim myfolder = "C:\Users\mypcname\Desktop"

Dim content = "アイウエオ"

textfile = New IO.StreamWriter(myfolder & "\NOTEPAD")

textfile.Write(content)

textfile.WriteLine()

textfile.Close()

Call openexcel()

End Sub

Private Sub openexcel()

Dim fileplace = "C:\Users\mypc\ファイルの場所"

Dim excelname As String = "マクロの名前.xlsm”

GC.Collect()

System.Diagnostics.Process.Start(fileplace & "\" & excelname)

End Sub

End Class