vba創建一個文件夾b系統時間命令

⑴ 用VBA生成的表格保存到以當前日期創建的文件夾內

主要問題在於：path1 = "H:\生產明細\容器項目\在制項目\缺件表\" & "B" \ " 。就改為：path1 = "H:\生產明細\容器項目\在制項目\缺件表\" & B & "\" 。
另外最後一句：ThisWorkbook.SaveAs "path1" & A & dat & ".xls"。它不是給新建的工作簿命名，而是將格工作簿改名另存，這樣存在一個問題，每運行一次就會再文件名後加一個日期，文件名會越來越長。這句中path1不應用引號。

⑵ 如何在Excel中用VBA創建文件夾

方法/步驟

1

方法1:使用VBA的MkDir語句創建文件夾。

代碼如下：

Sub xyf()

On Error Resume Next

VBA.MkDir ("c:/例子")

End Sub

其中 VBA.MkDir ("c:/例子")表示在C盤創建一個名為「例子」的文件夾

On Error Resume Next語句表示如果已經有這個文件夾，則不創建。

如下圖所示：

⑶ vba自動創建文件夾並另存為

OptionExplicit

Function創建文件夾()
IfDir("F:"&Format(Date,"YYYY-M-D"),vbDirectory)<>""Then
MsgBox"文件夾存在"
Else
MsgBox"文件夾不存在!,系統將創建一個名為"&Format(Date,"YYYY-M-D")&"的文件夾"
MkDir"F:"&Format(Date,"YYYY-M-D")
EndIf
EndFunction

Subtest()
Call創建文件夾
ActiveWorkbook.SaveAsFilename:="F:"&Format(Date,"YYYY-M-D")&"a.xls"
MsgBox"執行完了~"
EndSub

⑷ vba獲取系統時間並自動寫到另一個指定的excel文件里

假設另一個指定文件為b.xls，與代碼所在工作簿處於同一文件夾中。。

時間和textbox內容要分別寫入到其Sheet1的A、B兩列

則該按鈕的代碼為

PrivateSubCommandButton1_Click()
DimwbAsWorkbook,aRAsLong,bRAsLong
Setwb=Workbooks.Open(ThisWorkbook.Path&".xls",,False)
Withwb.Worksheets(1)
aR=IIf(Application.CountA(.Range("A:A"))=0,1,.Cells(Rows.Count,1).End(3).Row+1)
bR=IIf(Application.CountA(.Range("B:B"))=0,1,.Cells(Rows.Count,1).End(3).Row+1)
.Cells(aR,1)=Format(Now,"yyyy-mm-ddhh:mm:ss")
.Cells(bR,2)=TextBox1.Text
EndWith
wb.CloseTrue
TextBox1=""
EndSub

⑸ 如何在Excel中用VBA創建文件夾

在Excel中用VBA創建文件夾：

1、在excel中創建點擊按鈕

⑹ VBA在當前文件夾內創建一個文件夾，使用相對路徑

if dir(a & "\" & b,vbDirectory)="" then
MkDir a & "\" & b
end if

⑺ 求一個系統時間vba命令

Public Sub aaa()
Dim str As String: str = "文本1" '給str賦值，替換"文本1"
Range("A1") = Application.WorksheetFunction.Text(Now, "yyyy年mm月") & str
End Sub

⑻ VBA備份EXCEL工作表到D盤系統當前日期文件夾，備份文件為什麼還是宏名稱啊

你使用語句只對有宏文件的文件有效.
ThisWorkbook.Save
ThisWorkbook.SaveAs
而且觸發事件Workbook_BeforeClose,
所以想要每個文件關閉前自動備份,那麼你的每個文件都要添加你的這段宏文件.
解決方法:
方法1\ a,將載入宏寫成sub過程;
b,在每個excel的Workbook_BeforeClose事件中調用該sub
方法2\ 手工備份,做成按鈕,手工點擊備份,
不過其中的 ThisWorkbook.Save ThisWorkbook.SaveAs
變為activeworkbook.save activeworkbook.saveas
方法3\用excel功能的自動生成備份文件，在另存為時選擇常規選項，將生成備份前的勾勾上。

⑼ VB如何自動創建以日期命名的文件夾，並在文件夾中創建以時間命名的文檔

d = Format(Now(), "yyyymmdd")
f = Format(Now(), "hhnnss")
MkDir App.Path & "\" & d '建文件夾
Open App.Path & "\" & d & "\" & f & ".txt" For OutPut As #1 '建文件
Print #1, "OK"
Close #1