作者silvaco ()
看板Visual_Basic
标题Re: [VBA ] 请问输出问题
时间Sat Jun 17 23:18:37 2006
※ 引述《silvaco ()》之铭言：
: Dim FileNo As Integer
: Dim CurrentLine As String
: Dim Filename As String
: Filename = "C:\Documents and Settings\data.txt"
: ' Define file name
: FileNo = FreeFile ' Establish free file handle
: Open Filename For Output As #FileNo ' Open file (writing mode)
: Print #FileNo, "This is a line of text" ' Save line
: Print #FileNo, "This is another line of text" ' Save line
: Close #FileNo ' Close file
: 请问我要如何才能让data可以变成是一个变数呢??
: 我想用now()函数把每天的档案存进去~
: 请问可行吗??该怎麽做呢??
: 请大家指导一下~~谢谢
刚才修改一下
Sub test()
Dim data As Date
Dim d, m, y As String
Dim FileNo As Integer
Dim CurrentLine As String
Dim Filename As String
Worksheets("sheet1").Range("a1").Value = Now()
data = Worksheets("sheet1").Range("a1").Value
d = Day(data)
m = Month(data)
y = Year(data)
Filename = "C:\Documents and Settings\桌面\" & y & m & d & ".txt"
' Define file name
FileNo = FreeFile ' Establish free file handle
Open Filename For Output As #FileNo ' Open file (writing mode)
Print #FileNo, "This is a line of text" ' Save line
Print #FileNo, "This is another line of text" ' Save line
Close #FileNo ' Close file
End Sub
这样月份存档会变成只有一个位数
请问有什麽方法可以让他有2位数吗??
例如6月是06而不是只有6
请大家指导一下~谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.135.251.190
1F：推 fumizuki:format(时间, "yyyymmdd") & .txt 06/17 23:24
2F：→ silvaco:请问那个时间是必需指定的吗??我怎麽直接填上去会错误呢?? 06/17 23:30
3F：推 silvaco:oh~ya~终於试出来了~~谢谢大家的指导:) 06/17 23:42