vba打开当前时间的文件
答：Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表 xlSheet.Cells(1, 1) = Time() 'time()时间，Now()包括日期和时间 '给单元格A1赋值 xlBook...
答：1、在开发工具栏选择插入-其他控件，打开其他控件选择框。2、在选择框中选择calendar control8.0，确定。3、在适当的位置绘制日历，并将高度和宽度适当调整。这时的日历控件还比较原始，不会点击日期后自动隐藏日历并在单元格内填入日期，这时就需要添加自己的代码。4、在设计模式下双击日历。点击设计模式...
答：vba使用当前日期的方法是利用excel内置函数实现的。1、excel中函数date的使用方法：2、在vba中，需要先定义一个变量，然后把date赋值：dim cuDate as string cuDate = date 这样变量cuDate就获取到了date的值。3、运行结果：Sub test()Dim cuDate As String cuDate = Date MsgBox cuDate End Sub ...
答：MsgBox ("现在时间是:" + Chr(10) &Time)
答：例如，设置格式为“上午/下午 h"时"mm"分"ss"秒"”，则会在单元格中显示如“上午8时33分46秒”这样的时间，并且秒数会随时间变化而即时更新。3. 使用VBA代码 如果你熟悉VBA（Visual Basic for Applications），可以通过编写简单的代码来显示当前时间。将以下代码放入Excel的...
答：If ary(i) > tmpMax Then tmpMax = ary(i) '不断将找到的最大日期值放入变量tmpmax End If fn = DirLoopSet wb = Workbooks.Open(pth & "namelist" & tmpMax & ".xlsx", , True) '打开tmpmax指定的文件wb.Worksheets("Sheet2").Cells....
答：4、双击窗体上的按钮控件，在弹出的代码编辑区域添加如图所示的代码。5、双击资源管理器中的“ThisWorkBook”，如图所示；在打开的代码编辑环境下，点击“通用”下拉框，选择“WorkBook”，如图所示；在出现的事件过程中添加如图所示的代码——在打开工作簿时自动立即用户窗体的关键代码。6、将所有文件关闭后...
答：可以这么写：Sub Macro1()Dim dt As Date dt = Format(Date, "yyyy-mm-dd")MsgBox dt End Sub
答：我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl+Shift+;”，但是这种输入方法只能显示小时和分钟，即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输入当前时间时，在单元格中显示的是包含秒的“HH:MM:SS”格式。方法如下：按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，将下列...
答：MkDir "D:\" & Date ThisWorkbook.Save ThisWorkbook.SaveAs "D:\" & Date & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Now, "yyyymmdd hhmmss") & ".xls"End If End Sub 当关闭工作薄之前进行备份文件，文件夹名为系统日期，文件名为原工作薄名+日期+时间 ...
网友评论：
堵郑18042915670：
怎样用VBA写一个可以自动打开以当前日期为文件名的文件? -
64692阙使
： 假设文件是:2011-3-30.xls 这样的格式.Sub aa() Workbooks.Open CStr(Date) & ＂.xls＂ End Sub
堵郑18042915670：
VBA用曰期控件动态打开文件,文件名命名格式为YYYY - MM - DD.xls,如何用日期控件打开对
64692阙使
： FileName = Format(DTPicker1.Value, ＂yyyy-mm-dd＂) & ＂.xls＂
堵郑18042915670：
Excel VBA读取TXT -
64692阙使
： excel肯定是不可能自动运行的,只有手动点excel打开指定文件后,才会运行你的宏代码. excel没有定时器这个概念,所以只能用一个无限循环来做,一直不停的读当前时间,判断是不是过了2秒,然后读文件.
堵郑18042915670：
VBA 怎么打开当前文件夹下的excel? -
64692阙使
： 将当前文件夹设为默认即可. 在你的语句前面加上下面两句: ChDir ThisWorkbook.Path ChDrive ThisWorkbook.Path
堵郑18042915670：
如何用宏录制打开文件,保存文件名字是当前日期 -
64692阙使
： Sub 保存文件名字是当前日期() On Error Resume Next Dim 目录 As String, 日期 As String 日期 = Format$(Date, ＂yyyy-mm-dd＂) 目录 = ＂C:\＂ & 日期 MkDir 目录 '在C盘新建目录 ChDir 目录 '定位到新建的目录 ActiveWorkbook.SaveAs ...
堵郑18042915670：
如何在Word中运用VBA书写一个宏命令,在文档右下角显示系统当前时间,格式是＂yyyy - MM - dd＂ -
64692阙使
： 在你选择的位置写入这个format(now,＂yyyy-MM-dd＂)就可以了
堵郑18042915670：
如何用VBA来控制excel中的自动当前日期 -
64692阙使
： Private Sub Workbook_Open() If [a1] = ＂＂ Then [a1] = Date Else Exit Sub End If End Sub 在工作表标签,右键,查看代码.双击Thisworkbook,得到一个代码窗口 将这段代码粘贴到Thisworkbook的代码窗口内即可 a1是一个单元格地址 要改变日期的存放地址,请将a1更改为其它单元格地址即可
堵郑18042915670：
vba获取系统时间并自动写到一个指定的excel文件里 -
64692阙使
： 很简单,如果你是直接在EXCEL的UserForm里面做的,那么就一句代码:Private Sub CommandButton1_Click() Cells(1, ＂A＂) = Format(Now(), ＂yyyy-mm-dd,hh:mm:ss＂) '在A1写入年-月-日,时:分:秒 Range(＂A2＂) = Format(Now(), ＂yyyy-mm-dd＂) '在A2写入年-月-日 Cells(3,1) = format(Now(),＂hh:mm:ss＂) '在A3写入时:分:秒 End Sub
堵郑18042915670：
EXCEL中在A列输入字符,在B列显示A列中的字符输入的当前日期时间 -
64692阙使
： 用VBA可以解决:首先将【工具】【宏】【安全性】设置为:低,确定 关闭文件,再打开这个文件 鼠标右击【Sheet1】标签,【查看代码】,在代码窗口粘贴下面的代码:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Offset(, 1) = Now() End Sub Alt+F11,回到Excel里,在A列输入数据试一试(注意:将B列的宽度调大一点) 祝你工作愉快!!!
堵郑18042915670：
Excel VBA如何按文件的最新日期提取文件 -
64692阙使
： 首先呢,得获取所有文件名称,然后呢,根据文件名称年月日部分挑出最新日期,再然后呢,根据最新日期生成文件名,再然后呢,进行复制.注:你的源数据文件名和目录结构应该如图 样本文件见附件 代码如下 Sub test() Dim pth As String, ...
