- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 11
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-1-10
- 最後登錄
- 2021-5-25
|
4#
發表於 2011-1-11 00:37
| 只看該作者
回復 2# solely
因為公司要的格式就是要這樣
假設是1月的第一筆資料就是0101 第二筆0102...以此類推
所以才會這麼麻煩.....
你的方法確實可行
可是我不知道要怎麼運用在我的程式裡面
程式碼如下
Private Sub CommandButton1_Click()
direct = ThisWorkbook.Path & "\"
session2 = Month(Date) & "01"
Do
Set fs = CreateObject("Scripting.FileSystemObject")
b = fs.fileExists(direct & session2 & ".xls")
session2 = session2 + 1
Loop Until b = False
Var = MsgBox("是否要另存檔案名稱 " & session2 - 1, vbOKCancel, "另存提示")
If Var = vbOK Then
Worksheets("Sheet1").Range("L1") = Date
direct = ThisWorkbook.Path & "\"
session1 = Month(Date) & "01"
Do
Set fs = CreateObject("Scripting.FileSystemObject")
a = fs.fileExists(direct & session1 & ".xls")
session1 = session1 + 1
Loop Until a = False
Application.DisplayAlerts = False
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=direct & session2 - 1 & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "檔案名稱 " & session2 - 1 & " 另存成功!!"
End If
If Var = vbCancel Then
End If
End Sub |
|
發表於 2011-1-10 21:22
| 
