|
▼Kein さん ponpon さん:
adviseいただいたロジックを追加してみました。
カレントドライブも確認しました。
が、txtファイルが出来ていません。
どこが悪いでしょうか。
すみません、基本ができていません。
Private Sub CommandButton1_Click()
Dim MyRange As Range
Dim addrow As Integer
Set MyRange = Sheet2.Range("A1").CurrentRegion
addrow = MyRange.Rows.Count + 1
MyProc (addrow)
'ここからkein様のadvise
Dim MyF As String, Buf As String
With TextBox4
If .Text = "" Then Exit Sub
Sheets("Sheet2").Range("A65536").End(xlUp) _
.Offset(1).Value = .Text
Buf = Format(Time, "hh:mm:ss") & " ; " & .Text
.Text = ""
End With
MyF = Application.DefaultFilePath & _
"\Log_" & Format(Date, "yymmdd") & ".txt"
'ここponpon様のadvise
MsgBox Application.DefaultFilePath
Open MyF For Append Access Write As #1
Print #1, Buf
Close #1
End Sub
Public Sub MyProc(MyRowCount As Integer) 'データ書き込み の 行数
Dim MyRange As Range 'データ範囲
Dim cnt As Integer
cnt = 1
Worksheets("Sheet2").Activate
Set MyRange = Sheet2.Range("A1").CurrentRegion
MyRange.Cells(MyRowCount, cnt).Value = TextBox4.Value
cnt = cnt + 1
TextBox4.Value = ""
End Sub
Private Sub CommandButton2_Click()
TextBox4.Value = ""
End Sub
Private Sub CommandButton3_Click()
ThisWorkbook.Worksheets("Sheet1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub UserForm_Click()
End Sub
追記:ハチ様のadviseですが、マクロの意味を理解できていません。kein様のをやってみたのちに解釈してみます。すこしお時間ください。
|
|