
以下是将 WPS Excel 文件转换为 Excel 格式的宏代码:
Sub SaveAsExcel()
Dim TargetFile As String
Dim objWkb As Workbook
Dim objApp As Object
Set objWkb = ActiveWorkbook
Set objApp = CreateObject("ExcelApplication")
If objWkb Is Nothing Or objApp Is Nothing Then
MsgBox "程序出错!"
Exit Sub
End If
With objApp
Visible = False
WorkbooksAdd
Set objWkb = WorkbooksOpen(objWkbFullName)
TargetFile = Replace(objWkbFullName, "et", "xlsx")
ApplicationDisplayAlerts = False
objWkbSaveAs TargetFile, FileFormat:=xlOpenXMLWorkbook
Quit
End With
MsgBox "保存成功!"
End Sub
使用方法:
1打开一个 WPS Excel 文件。
2按下 ALT + F11 进入 VBA 界面。
3在左侧 Project 窗口中找到当前文件所在的 VBAProject。
4右键单击 VBAProject,选择 Insert -> Module,即可打开一个新的 VBA 代码模块。
5将以上代码复制到新的模块中,并保存。
6返回 WPS Excel 界面,按下 Alt + F8 快捷键调出宏对话框,选择 "SaveAsExcel" 宏执行即可。
请注意,在执行宏代码前最好先备份一份原始文件,以防不测。
rows:表示导出数据行。
full=y,是导入文件中全部内容,有可能有多个用户的内容。
ull=y,是导入文件中全部内容,有可能有多个用户的内容。如果连接的用户默认使用的表空间设置成system,则导入文件的内容会导到system上。
导入数据库的语法格式是:
imp 用户名/密码@sid full=y file=路径/文件名 ignore=y
full=y 和 ignore=y 这两个参数要有的。
扩展资料:
COLUMN函数和ROW函数以及COLUMNS函数和ROWS函数在动态引用行号和列号方面非常有用。
COLUMN函数用于返回给定引用的列号。其语法如下:
=COLUMN (reference)
= COLUMN(引用地址)
ROW函数用于返回给定引用的行号。其语法如下:
=ROW (reference)
=ROW(引用地址)
参考资料来源:百度百科-ROW函数
以上就是关于Wps excel格式转化 宏代码全部的内容,包括:Wps excel格式转化 宏代码、请问oracle中exp命令row=y和full=y,ignore=y分别是什么意思啊、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)