我试图在VBA中创建一个宏,它将通过Access VBA来格式化Excel表。我在Access中遇到了一些意外,无法识别某些Excel命令,如.Select、.Interior.Color和.ActiveWindow.Zoom。我解决了前两个问题,但是有人能帮我把活动缩放设置为90%吗?
Sub ExcelMacro()
Dim xlApp As Object
Dim xlWB As Object
filepath = "\\dom1...xlsm"
Set xlApp = CreateObject("Excel.Application")
xlApp.
我的主要目标是创建一个自动调整大小的命名范围。
一种常见的方法是在Excel中使用OFFSET公式,并使用CountA动态确定高度和/或宽度参数值。我想用VBA来做这件事。为了简单起见,我后退了一步,只专注于让OFFSET运行并返回一个范围。我有以下代码:
Public Function testfn()
Dim r As Range
On Error Resume Next
Set r = WorksheetFunction.Offset(Worksheets("MAIN").Range("H85"), 0, 0, 1, 2)
Debu
我想为我的Excel工作簿运行一个自动拼写检查。
在此之前,我使用了这个查询中解释的方法:
一切似乎都很好,尽管在最后我遇到了一个错误:
运行时错误‘1004’:Range类的 CheckSpelling方法失败
但是,我的拼写检查看起来已经完成了,因为我已经没有同样的错误了。不幸的是,这是相当尴尬的,因为我不能在我的工作簿上运行另一个VBA代码,因为调试器显示了错误。
我在这里找到了与检查受保护的工作表拼写相关的代码:
最后,我准备了我自己的代码,包括它们两个:
Sub Spellcheck3()
For Each sh In Worksheets
Sheets(sh.Name).
我正在研究如何通过Excel将Excel.Range对象从Excel中的VBA传递到C#,然后通过传递引用与Excel对象模型交互。
样本代码:
'***************** VBA code ********************
Sub test2()
Dim rng As Excel.Range
Set rng = Worksheets("test_output").Range("D9")
Dim myDLL As New XLServer.MyClass
我已经通过VBA访问打开了一个Excel文件,并且可以在Excel单元格中读写。如何勾选Excel Ckeck Box?
我的代码:
Dim Excel_App As Object
Dim strExcel As String
Set Excel_App = CreateObject("Excel.Application")
Excel_App.Visible = True
Excel_App.Workbooks.Open fready
With Excel_App
.CheckBox3.Value = True 'This line is used in V
我在OUTLOOK中使用此代码打开Excel工作簿:
'~~> BEGINNING OF EXCEL CODE <~~
Dim xlApp As Excel.Application
Dim sourceWB As Excel.Workbook
Dim sourceWS As Excel.Worksheet
Set xlApp = New Excel.Application
With xlApp
.Visible = True
.EnableEvents = True
.UserControl = False
.DisplayAlerts
我试图从Outlook电子邮件中获取表格,并使用VBA将其复制到Excel中。
下面的行中有一个错误91: object variable and with block variable not set。我一直在其他模块中使用getCurrent()函数,它工作得很好。
Set oTable = oConv.GetTable
我的VBA代码:
Public objApp As Outlook.Application
Sub ReadTable()
Dim oTable As Outlook.Table
Dim oConv As Outlook.Conversation
Set oConv
在Excel中,我有一个名为MyModule的VBA模块,它的功能如下
Public Function MyFunction(Param1 As Range, Param2 As Range) As String
' some implementation
End Function
在运行时,我知道我有一个名为MyModule的模块,我知道我有一个名为MyFunction的函数,但我想动态检查参数名Param1和Param2
在我的世界(C#)中,这称为反射。我可以在这里使用类似的概念来获取参数名吗?或者我对VBA的期望太高了吗?
我有一个COM自动化服务器,由VB6 exe托管。
COM API来自Excel 。
Dim o as MyCOMAPI.MyCOMType
Set o = new MyCOMAPI.MyCOMType
o.DoSomething
当我在VBA中创建对象时,会启动exe和COM自动化,并且VBA可以使用API。
但是exe被Excel快速地“随机”关闭,我猜当Excel决定不再需要COM时。
这种行为造成了随机错误。
简单的解决方案是在运行VBA代码之前启动exe;在这种情况下,所有的执行程序都正常工作,因为在用户关闭之前,exe不会停止运行。
您有一些关于Excel如何管理对托管API的调用
我正在使用Excel2007-pt-PT,并试图使用vba脚本来修剪工作表中的所有单元格(compactar)。下面的脚本返回这个error - "Object不支持这个属性或方法“,我不明白为什么。
Sub TrimAllCells()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
cell = WorksheetFunction.Compactar(cell)
Next cell
End Sub
我做错了什么?
我有一个带有数据透视表字段的数据透视表,其中包含许多项。我使用VBA代码逻辑来决定透视表值是否可见。问题是excel为每个显示或隐藏的字段重新计算数据透视表,这使得它非常慢。我想要一些东西,它只重新计算一次,在所有的值都设置好了。我试着使用Application.Calculation = xlCalculationManual,但是没有用。
我使用的vba代码如下所示
For i = 1 To oPivotField.PivotItems.Count
If (oPivotField.PivotItems(i).Name = "TestCondition") Then
我将简单的VBA代码放在"F:\Inetpub\wwwroot\webfolder\testWB.xlsm“中。该宏如下所示:
Sub TestProcedure()
MsgBox "Hello"
End Sub
如何通过C# ExcelPackage调用此过程?
我所拥有的就是:
FileInfo newFile = new FileInfo(@"F:\Inetpub\wwwroot\webfolder\testWB.xlsm");
ExcelPackage pck = new ExcelPackage(newFile);
但是我没有找到任何地方,