Question

vba新建工作簿命名

我想让新建的excel工作簿的名称为"技术质量",
能不能给示范一下vba代码怎么写啊?方法不限.

Answer 1

可以参考下面的代码：

Sub test()

Dim iFile As String

iFile = ThisWorkbook.Path & "\" & "技术质量.xls"

Workbooks.Add

ActiveWorkbook.SaveAs iFile, True

MsgBox "新建Excel工作薄完成," & vbCrLf & "完整路径及名称:" & vbCrLf & iFile

End Sub

扩展资料：

vba参考函数

Asc函数 返回一个Integer，代表字符串中首字母的字符代码。 

Atn函数 返回一个Double，指定一个数的反正切值。 

CallByName函数 执行一个对象的方法，或者设置或返回一个对象的属性。 

Choose函数 从参数列表中选择并返回一个值。 

Chr函数 返回String，其中包含有与指定的字符代码相关的字符。

Cos函数 返回一个Double，指定一个角的余弦值。 

CreateObject函数 创建并返回一个对ActiveX对象的引用。

参考资料来源：百度百科-VBA （Visual Basic宏语言）

Answer 2

Sub test()
Dim iFile As String
iFile = ThisWorkbook.Path & "\" & "技术质量.xls"
Workbooks.Add
ActiveWorkbook.SaveAs iFile, True
MsgBox "新建Excel工作薄完成," & vbCrLf & "完整路径及名称:" & vbCrLf & iFile
End Sub

Answer 3

sub newadd()
dim newbook as workbook
set newbook = workbooks.add
newbook.saveas filename:="技术质量.xlsx"
end sub