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