如何导出或查看excel xla中的VB语言

Excel 怎么查看EXCEL中的宏代码~

快捷键ALT+F11、工具——宏——VB编辑器、鼠标右键点sheet名——查看代码，代码一般写在模块里，有时候也会写在表里，可以复制。
拓展：
1、计算机科学里的宏(Macro)，是一种批量处理的称谓。一般说来，宏是一种规则或模式，或称语法替换 ，用于说明某一特定输入(通常是字符串)如何根据预定义的规则转换成对应的输出(通常也是字符串)。这种替换在预编译时进行，称作宏展开。
2、计算机科学里的宏是一种抽象的,根据一系列预定义的规则替换一定的文本模式。Excel办公软件自动集成了"VBA"高级程序语言，用此语言编制出的程序就叫"宏"。使用"VBA"需要有一定的编程基础，并且还会耗费大量的时间，因此，绝大多数的使用者仅使用了Excel的一般制表功能，很少使用到"VBA"。

按住ALT+F11弹出VBA编辑器。
只是要破解么？
新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可,经测试已经通过.
'移除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Function
End If
If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
End If
Close #1
End Function

'新建一个ActiveX DLL工程工程名为DbToExcel
'工程-->引用,引用Microsoft ActiveX Data Objects 2.6 Library
'Microsoft Excel 9.0 Objects Library

Option Explicit

Private Mcnnquery As ADODB.Connection '定义ADO连接对象
Private Mrsquery As ADODB.Recordset '定义ADO记录对象
Dim ObjExcel As Excel.Application '定义Excel对象
Dim ObjWorkBook As Excel.Workbook '定义工作薄
Dim ObjSheet As Excel.Worksheet '定义工作表
Dim ObjRange As Excel.Range '定义用户使用工作表的范围

Private Property Set Connquery(ByVal Conn As ADODB.Connection)
Set Mcnnquery = Conn
End Property

Private Property Get Connquery() As ADODB.Connection
Set Connquery = Mcnnquery
End Property

Private Property Set Rsquery(ByVal Rs As ADODB.Recordset)
Set Mrsquery = Rs
End Property

Private Property Get Rsquery() As ADODB.Recordset
Set Rsquery = Mrsquery
End Property

'属性方法共有三个参数
'strcnn 连接对象
'strrs 数据集对象
'strpath EXCEL文件
Public Sub DbtoExcel(Strcnn As ADODB.Connection, Strrs As ADODB.Recordset, Strpath As String)
Dim i As Integer, j As Integer
On Error GoTo Err
Set Connquery = Strcnn '设置cnnquery属性
Set Rsquery = Strrs '设置rsquery属性
Set ObjExcel = New Excel.Application
Set ObjWorkBook = ObjExcel.Workbooks.Open(Strpath) '打开EXCEL文件
Set ObjSheet = ObjWorkBook.ActiveSheet
Set ObjRange = ObjSheet.UsedRange '用户使用过的工作表范围
For i = 1 To Rsquery.Fields.Count
ObjRange.Cells(1, i) = Rsquery.Fields(i - 1).Name
Next i
For j = 1 To Rsquery.RecordCount
For i = 0 To Rsquery.Fields.Count - 1
ObjRange.Cells(j + 1, i + 1) = Rsquery.Fields(i).Value
Next i
Rsquery.MoveNext
Next j
ObjExcel.Quit
Set ObjWorkBook = Nothing
Set ObjRange = Nothing
Set ObjSheet = Nothing
Set ObjExcel = Nothing
Err:
MsgBox Err.Number & " " & Err.Description
Set ObjWorkBook = Nothing
Set ObjRange = Nothing
Set ObjSheet = Nothing
Set ObjExcel = Nothing
End Sub

'文件-->生成DbToExcel.dll

'新建一个标准EXE工程
'工程-->引用Microsoft ActiveX Data Objects 2.6 Library
浏览，加载刚才生成的DLL文件

Option Explicit

Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset

Dim DE As New DbtoExcel.Class1 '定义一个类，DbToExcel.DLL内Class1类的一个实例

Private Sub Command1_Click()
DE.DbtoExcel Conn, Rs, "c\1.xls"
End Sub

Private Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb;Persist Security Info=False"
Conn.Open
Rs.Open "select * from users", Conn, adOpenKeyset, adLockBatchOptimistic
End Sub

不知道对你有没有帮助

在打开EXCEL的情况下,按键盘ALT+F11, 在VBA编辑中文件菜单下有导出

在网上搜搜 很多啊

---

红旗区13212067131： 如何导出EXCEL到指定路径 - ？
驷香亮菌： 1.打开要保存的Excel表格,选择【另存为】2.在打开的【另存为】窗口中选择【工具】-【常规选项】3.在弹出的【常规选项】对话框中将【生成备份文件】勾选.4.这时,当此文件在以后的编辑过程中点击保存时就会生成一个后缀名为“xlk”的文件5.此文件可以直接用Excel打开进行编辑,打开时会有如下提示,点击【是】打开就可以了.

红旗区13212067131： 如何将数据库表的查询结果导出EXCEL表中 - ？
驷香亮菌： 方法步骤如下:1、工具/原料 (1)excel2、对于会写查询SQL语句的则是直接写查询语句查询出结果.如下图:3、接下来到桌面新建一个空的excel文件,来回到SQLServer查询界面.鼠标右键点击查询结果的左上角空白列,点击“连同标题一起复制”.则已复制好了数据.如下图:(1)接下来打开之前建好的Excel文件把复制好的数据黏贴到excel即可.如下图:以上就是将数据库表的查询结果导出导出为Excel文件方法步骤了4、如果上述功能都无法使用,可能是程序出现了问题.建议重新下载安装试试,建议使用 sql server 2008:www.3322.cc/soft/5386.html

红旗区13212067131： excel表只要一个表怎么导出 - ？
驷香亮菌： 1.如下是一个Excel工作薄中的两张表,分别为Sheet1和Sheet2,下面分别以表1和表2来代替.我们要把表2中的语文成绩导入到表1中,但是从图中可以看出表1和表2名字并不一一对应2.选中表1,选中C2单元格,即语文项目中第一个要录入的...

红旗区13212067131： 如何将access中的数据导出为EXCEL文件? - ？
驷香亮菌： Access中确实具备直接导出Excel的功能,就日常使用来讲,将Access中的表、查询这两种对象导出Excel文件比较常见. 首先打开Access,找到你想要导出的表或者查询(两种对象的导出方法完全一样) 单击右键,选择导出Excel表 然后根据对话框提示,选择导出的路径 如果系统有如下提示,表示已经成功导出最后,可以去事先设定好的路径下查看导出的文件至此,Access导出Excel文件工作全部完成.

红旗区13212067131： 如何导出报表数据 - ？
驷香亮菌： 例如,您可以将报表数据导出到逗号分隔值 (CSV) 文件中,然后导入到 Microsoft Office Excel 中.打开报表然后导出报表数据 在 Service Manager 控制台中,单击“报表”.展开“报表”,然后单击任何视图.例如,单击“事件管理”.在...

红旗区13212067131： Excel中如何把数据表中的数据导出来? - ？
驷香亮菌： 把问题作为内容(邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件,以免误删),excel样表文件(把现状和目标效果表示出)作为附件发到yqch134@163.com帮你看下

红旗区13212067131： 怎样把查询菜单下的查询结果导出到Excel表中? - ？
驷香亮菌： 进入“查询”菜单中的查询界面,输入查询条件后,即可看到查询结果,点击相应按钮即可导出数据. 导出方式分为两种:点击【导出E】按钮进行导出(导出速度慢) 此按钮将数据直接导出为Excel文件,请按照以下方式进行设置: 在工作站...

红旗区13212067131： 怎样将MySQL数据导出到Excel表中 - ？
驷香亮菌： 方法/步骤 首先,我们需要打开电脑上的Navicat for MySQL快捷键.这样就可以查看数据库了.然后,我们点击root打开之后,单击core_db,在展开的选项中可以看到表.我们点击“表”后可以看到数据库中的所有表,我们右击表弹出的选项...

红旗区13212067131： 怎样导出word文档中的EXCEL - ？
驷香亮菌：你是说WORD文档中嵌入的Excel文档吗?双击在Excel中打开,然后另存,应该就可以了.