我想从用户那里获得价值并打印出来。甚至可以在UI上显示它。我能够创建UI,只是无法打印。
完成了大量的Google搜索。
Sub saveSheetToCSV()
Dim myCSVFileName As String
Dim tempWB As Workbook
myCSVFileName = ThisWorkbook.Path & "\" & "EXPORT_" & VBA.Format(VBA.Now, "ddMMyyyy") & ".csv"
ThisWorkbook.Sheets("Data").Activate
ActiveSheet.Copy
Set tempWB = ActiveWorkbook
With tempWB
.SaveAs FileName:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
.Close
End With
End Sub
答案 0 :(得分:0)
如果要打印到终端,只需在此行中的p之后删除():
b = tkr.Button(t,text = 'Get It', command=p)
command参数只是采用函数的名称。
答案 1 :(得分:0)
,并且必须打印v.get()而不是e1.get()