VBA中对set和dim理解

我是六神的六,
前言:
我们要用实践者的方式去思考,用思考者的方式去时间。

Syntax
Dim variable as integer/long or others.
这个行为给计算机下达的命令是 你去给我生成一个integer类型的变量放在内存中。有点python中实例化对象这么个意思,实例化了一个东西并在电脑的内存中。

好处:
1.提前申明好,计算机如何他的大小占比多少。提高了运行效率

我们在给对象 赋值的时候必然需要set 语句,要不然会出错。
Set object = expression

根据前言:
我们给对象赋值是有好处的

比如现在有一个worksheet对象
Dim sht as Worksheet
’创建一个变量sht 他拥有worksheet的属性和方法

for i =2 to 4
set sht = worksheet.add
(注意给对象赋值的时候,worksheet,当然只能赋值给他属性或者方法,不能只赋值worksheet!要不然会报错!!!报错显示要求对象(我不会告诉你我僵硬在这里很久了))。
next

让我们带着问题来思考,为什么我们要给对象赋值?赋值会有哪些好处呢?
很显然,上面的代码给sht这个对象赋予了添加工作表,这样的话,这个sht就是一个拥有添加工作表这个方法的对象。

  • 4
    点赞
  • 16
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBA,可以通过Adobe Acrobat或者其他第三方软件对PDF文件进行操作,例如: 1. 打开PDF文件: 使用Adobe Acrobat: ``` Dim AcroApp As Acrobat.CAcroApp Dim AcroAVDoc As Acrobat.CAcroAVDoc Dim AcroPDDoc As Acrobat.CAcroPDDoc Set AcroApp = CreateObject("AcroExch.App") Set AcroAVDoc = CreateObject("AcroExch.AVDoc") AcroAVDoc.Open "C:\test.pdf", "Acrobat" Set AcroPDDoc = AcroAVDoc.GetPDDoc ``` 使用第三方软件: ``` Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.Open "C:\test.pdf" ``` 2. 读取PDF文本内容: 使用Adobe Acrobat: ``` Dim AcroApp As Acrobat.CAcroApp Dim AcroAVDoc As Acrobat.CAcroAVDoc Dim AcroPDDoc As Acrobat.CAcroPDDoc Dim AcroText As Acrobat.CAcroPDTextSelect Set AcroApp = CreateObject("AcroExch.App") Set AcroAVDoc = CreateObject("AcroExch.AVDoc") AcroAVDoc.Open "C:\test.pdf", "Acrobat" Set AcroPDDoc = AcroAVDoc.GetPDDoc Set AcroText = CreateObject("AcroExch.PDTextSelect") AcroText.SelectAll MsgBox AcroText.Text ``` 使用第三方软件: ``` Dim objFSO As Object Dim objFile As Object Dim strText As String Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\test.pdf", 1) strText = objFile.ReadAll objFile.Close MsgBox strText ``` 3. 将Word文档转换为PDF: 使用Adobe Acrobat: ``` Dim AcroApp As Acrobat.CAcroApp Dim AcroAVDoc As Acrobat.CAcroAVDoc Dim AcroPDDoc As Acrobat.CAcroPDDoc Dim AcroJob As Acrobat.CAcroDistiller Set AcroApp = CreateObject("AcroExch.App") Set AcroJob = CreateObject("AcroDistiller") AcroJob.Create "C:\test.pdf", "C:\test.doc", "" ``` 使用第三方软件: ``` Dim objWord As Object Dim objDoc As Object Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("C:\test.doc") objDoc.ExportAsFixedFormat OutputFileName:="C:\test.pdf", ExportFormat:=17 objDoc.Close False objWord.Quit False ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值