如何导出或查看excel xla中的VB语言
快捷键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
'工程-->引用,引用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编辑中文件菜单下有导出
在网上搜搜 很多啊
怎样把pdf文件放在excel中怎么把pdf文件放进exc还能打开
1. 打开 Excel 文档,并切换到需要插入 PDF 的工作表中。2. 从菜单栏中选择“插入”选项卡,然后点击“对象”按钮。3. 在弹出的“对象”对话框中,选择“Adobe Acrobat Document”类型,并勾选“显示为图标”。4. 点击“浏览”按钮,选择要插入的 PDF 文件并点击“确定”。5. 在 Excel 工作表上...
Exc何瘦身
首先,使用快捷键CTRL+G进入查找和选择功能。在定位设置中,选择合适的条件来定位你想要查看的对象,比如隐藏的单元格或对象。在查找结果中,你可能会看到许多未显示的圆圈图标,这些都是隐藏起来的内容。选择其中一个,使用鼠标左键单击,然后按下Delete键,删除不必要的隐藏元素。记得在操作过程中保存你的...
我想知道所有文件后缀?
DUN Microsoft拔号网络导出文件 DV 数字视频文件(MIME) DWD DiamondWare数字化文件 DWG AutoCAD工程图文件;AutoCAD或Generic CADD老版本的绘图格式 DXF 可进行互交换的绘图文件格式,二进制的DWG格式的文本表示;数据交换文件 DXR Macromedia Director受保护(不可编辑)电影文件 D64 Commodore的64位模拟磁盘图像文件 EDA Ens...
如何检测传感器的好坏?
1、观察传感器外观是否有变形,裂纹等情况,若出现这些情况,需要联系厂家更换新的传感器。2、在称重控制器(称重仪表)中找到传感器连接端,测定传感器连接电路。正常情况下,激励电压(EXC+到EXC-之间)是5-10V,输出电压(SIG+到SIG-之间)在设备空载时接近于0,小于传感器最大输出量。超出此范围则联系...
求助有关常用扩展名的知识
AAM Authorware shocked文件 AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ABK CorelDRAW自动备份文件 ABS 该类文件有时用于指示一个摘要(就像在一篇有关科学方面的文章的一个摘要或概要,取自abstract)ACE Ace压缩档案格式 ACL CorelDRAW 6键盘快捷键文件 ACM Windows系统目录文件 ACP Microsoft office...
关于文件格式,有几种 ?
DUN Microsoft拔号网络导出文件 DV 数字视频文件(MIME) DWD DiamondWare数字化文件 DWG AutoCAD工程图文件;AutoCAD或Generic CADD老版本的绘图格式 DXF 可进行互交换的绘图文件格式,二进制的DWG格式的文本表示;数据交换文件 DXR Macromedia Director受保护(不可编辑)电影文件 D64 Commodore的64位模拟磁盘图像文件 E EDA...
想知道文件后缀如何正确使用
PDD 可以用Paint Shop Pro或其他图像处理软件打开的图形图像 PDF Adobe Acrobat 可导出文档格式文件(可用Web浏蛹�Y源文件 RA RealAudio声音文件 RAM RealAudio元文件 RAR RAR压缩档案(Eugene Roshall格式) RAS Sun光栅图像位图 RAW RAW文件格式(位图);Raw标识的PCM数据 RBH 由RoboHELP维持的RBH文件,它加入到一...
...KkBLCQsnGBOCDzgdBBkLIhAJDwkmGRxEXWFNARheOExcCAU5QEsJ”,是什 ...
2.进入后即可在“短信”一栏下,查看短信或点击短信后可对该短信号码进行“删除、举报、更多(恢复到手机收件箱\/加入白名单\/加入黑名单)”的操作,如图:3.同时,被拦截的骚扰电话和加入黑名单的通话记录可以在“电话”一栏中查看:4.在黑名单中,可以自行添加号码进行拦截,在“其它添加方式”中还...
Exc何瘦身
首先,使用快捷键CTRL+G进入查找和选择功能。在定位设置中,选择合适的条件来定位你想要查看的对象,比如隐藏的单元格或对象。在查找结果中,你可能会看到许多未显示的圆圈图标,这些都是隐藏起来的内容。选择其中一个,使用鼠标左键单击,然后按下Delete键,删除不必要的隐藏元素。记得在操作过程中保存你的...
驷香亮菌: 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中打开,然后另存,应该就可以了.