VBA组件已经安装完了，现在的问题是有编辑好的.bas文件，我应该怎么导入WPS中使用？

1、演示所使用的办公软件Excel电子表格，本次演示使用的版本为Microsoft office2013。

2、首先打开Excel电子表格，可以看到此时电子表格上方的编辑栏（也就是问题描述中的输入栏）并没有显示神乱。雀瞎前

3、此时将鼠标移动到上方菜单栏中，点击文件按钮，在切换到的界面中选择选项菜单。

4、点击选项菜单后在d出的Excel选项窗口顷清中，选择高级选项并在右侧的详细设置中找到显示编辑栏，勾选。

5、点击确定关闭Excel选项窗口，返回电子表格主页面，可以看到此时编辑栏已经重新显示了。

一般情况下，多次运行代码，或EXCEL故障后，出现 ActiveX部件创建对象 错误。

可尝试以下解卜庆决方法：

一，将代码窗口内容导出到BAS文件，关闭EXCEL

二，新建一个EXCEL表碰弊茄，另存为启用宏的XLSM格式文件

三，将第一步导出的BAS文件导入到新文件。

问题解决，可正常使用代码。

以上仅为个人笑察经历，仅供参考。

比如

A1=001

那么文件名就是

001.xlsSub

另存()ActiveWorkbook.SaveCopyAs

"D:/"

&

[a1]

&

".xls"End

Sub显示标准的“另存为”对话框，获取用户文件名，而无须真正保存任颤梁何文件。

expression.GetSaveAsFilename(InitialFilename,

FileFilter,

FilterIndex,

Title,

ButtonText)

expression

必需。该表达式返回一个

Application

对象。

InitialFilename

Variant

类型，可选。指定建议的文件名。如果省略本参数，Microsoft

Excel

将活动工作簿的名称作为建议的文件名。

FileFilter

Variant

类型，可选。一个指定文件筛选条件的字符串。

本字符串由一个文件筛选字符串与

MS-DOS

通配符表达的文件筛选规则说明组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选串，文本文件和加载宏：“文本文件

(*.txt)、*.txt、Add-In

文件、(*.xla)、*.xla”。

要为单个文件筛选类型使用多个

MS-DOS

通配符表达式，需用分号将通配符表达式分开。例如：“Visual

Basic

文件

(*.bas

*.txt)、*.bas

*.txt”。

如果省略本参数，则默认参数值为“所有文件

(*.*),*.*”。

FilterIndex

Variant

类型，可选。指定默认文件筛选条件的索引号，取值范围为

1

到

FileFilter

指定的筛选条件数旦告目之间。如果省略本参数，或者取值大于可用筛选数目模洞明，则采用第一个文件筛选条件。

Title

Variant

类型，可选。指定对话框标题。如果省略本参数，则使用默认标题。

ButtonText

Variant

类型，可选。仅用于

Macintosh。

说明本方法返回选定的文件名或用户输入的名称。返回的文件名可能包含路径说明。如果用户取消了对话框，则该值为

False。

本方法可能更改当前驱动器或文件夹。

示例本示例显示文本文件的“另存为”对话框。如果用户选择了一个文件名，则在消息框中显示所选的文件名。

fileSaveName

=

Application.GetSaveAsFilename(

_

fileFilter:="Text

Files

(*.txt),

*.txt")

---