久しぶりにExcelVBA ― 2012/04/06 08:17
久しぶりにExcelVBA
Sub テキストとして出力()
fname = Cells(1, 3) + ".html"
fnsave = Application.GetSaveAsFilename(fname)
If fnsave = False Then Exit Sub
numff = FreeFile
Open fnsave For Output As #numff
For i = 1 To 10
temp = Cells(i, 1)
Print #numff, temp
Next i
Close #numff
End Sub
Sub テキストとして出力()
fname = Cells(1, 3) + ".html"
fnsave = Application.GetSaveAsFilename(fname)
If fnsave = False Then Exit Sub
numff = FreeFile
Open fnsave For Output As #numff
For i = 1 To 10
temp = Cells(i, 1)
Print #numff, temp
Next i
Close #numff
End Sub