在VB6中调用Excel/Word/WPS

ivrdachen

excel1202 发表于 2024-4-2 12:34
是的。VB6封装的dll只支持32位office调用，谁有在64位office能调用VB6封装dll的方法分享一下啊！

封装成exe就行，只是速度会变慢

x7893930

vitrel 发表于 2024-1-12 12:37
【调用方法二：不引用，先定义，后调用】（兼容性好，推荐）
      “方法一”之所以兼容性差，跟它第一 ...

您好，大神，向您请教一个问题，我VB6做完以后，点文件—点生成工程.exe。总是被防火墙和杀毒软件误杀，您这个是怎么做的

dljyh2009

Dim xlApp As Object, xlWb As Object, xlShtA As Object
  Set xlApp = GetObject(, "Excel.Application")        '指向当前已经打开的（第一个）Excel（或WPS表格）对象
    If Err Then                                         '若出错，则表示当前并没有打开的Excel（或WPS表格）对象
        Set xlApp = CreateObject("Excel.Application")   '创建一个新打开的（空的）Excel（或WPS表格），该Excel（或WPS表格）对象在后台打开，不可见
    End If
    Set xlWb = xlApp.ActiveWorkbook
         Set xlShtA = xlWb.ActiveSheet  '常用对象应保存可大大的提升运行速度
     Dim Cona As String
       Cona = xlShtA.CodeName
  
  Dim iRow$
    iRow = ActiveCell.Row

方式一，引用时  iRow =xlApp. ActiveCell.Row可以得到正确的行数，  iRow = ActiveCell.Row 提示错误；

方式二，不引用时  iRow =xlApp. ActiveCell.Row不能得到正确的行数，数字为1，  iRow = ActiveCell.Row 能够得到正确的行数；

dljyh2009

Set xlApp = GetObject(, "Excel.Application")        '指向当前已经打开的（第一个）Excel（或WPS表格）对象
    If Err Then                                         '若出错，则表示当前并没有打开的Excel（或WPS表格）对象
        Set xlApp = CreateObject("Excel.Application")   '创建一个新打开的（空的）Excel（或WPS表格），该Excel（或WPS表格）对象在后台打开，不可见
    End If
   
    Set xlWb = xlApp.ActiveWorkbook
         Set xlShtA = xlApp.ActiveSheet  '常用对象应保存可大大的提升运行速度
     Dim Cona As String
       Cona = xlShtA.CodeName
  
  Dim iRow$
    iRow = xlApp.ActiveCell.Row

MsgBox xlWb.Name

用方法二， iRow得到的是第1个打开的EXCEL，不是当前的EXCEL，怎么能得到当时工作表中行号,ActiveCell.Row能得到，把xlApp去除，但我表格中代码太多了，全除掉会不会有其它的问题

wsgrly

shenjianrong163 发表于 2024-1-12 13:46
VB6受到了限制，只能用于32位Office，改为VB.NET就不受限了。

VB.NET 如何不受限呢？虚心请教，有什么办法可以分享下。最近也在用VBA.Net封装，发现也不是很方便，不是这个报错就是那个报错，也没有，而且office的版本越来越高，对原来各方面的兼容性越来越差。折腾好几天，心累，没啥好办法，要么转回原来32位旧office，要么只能继续找解决办法。

shenjianrong163

wsgrly 发表于 2024-8-21 15:55
VB.NET 如何不受限呢？虚心请教，有什么办法可以分享下。最近也在用VBA.Net封装，发现也不是很方便，不是 ...

我用的是VSTO2019，新建Excel外接程序。少数语句的用法和VBA还是有一些差距。

pegasus101

给坚守着点赞！

huashengtang

感谢楼主无私分享

beescity

单位办公室，国产统信UOS系统，arm64的。WPS2019专业版。能用吗？

sslazioatit

感觉最大的好处就是可以给VB加密了。VBA破解太容易了。离职的时候，可以把自己的私有财产带走了