这几天出差了,做好发给你
===============================================================
Sub asdf()
Const CN As String * 14 = "中英文对照模板"
Dim file As String
Dim today As String
Dim I, f
For I = 1 To 15
I = Format(I)
today = Format(Date)
f = Dir(file)
file = "h:\lwp\" + I + CN + today + ".xls"
If f = Dir(file) Then Exit For
Next I
ActiveWorkbook.SaveAs filename:=file
End Sub程序中的目录换成你想保存的目录,有个问题没解决,生成的文件是按2.4.6.8的顺序生成的,正在想办法。
等待高手出现
另存为---修改名词。
用VBA吧,很简单
VLOOKUP
============================
两个工作薄 之间引用 是 一样的
可以鼠标去选中范围
在 一个工作表 引用另一个工作薄 的数据 格式 如下
=VLOOKUP(A1,'[新建 Microsoft Excel 工作表 (2).xls]Sheet1'!$A:$B,2,0)
[新建 Microsoft Excel 工作表 (2).xls] 是文件名
要求两个 文件都打开