我真的是VBA的新手,我已经被困在设置阶段了。
我正在学习一些教程,并从视频中一行一行地复制了所有行,但代码在我的机器上不能运行,尽管它似乎对其他所有人都有效。
VBA似乎无法识别"value“函数。另外,在教程中,这个人在输入value或其他函数后会弹出一个下拉菜单。
Sub Lower()
Range ("e3"), Value = Range("e3"), Value - 1
End Sub
谢谢
这是指向教程https://wellsr.com/vba/2018/excel/excel-vba-send-email-with-attachment/的链接 Sub AttachMultipleFilesToEmail()
Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem
Set outlookApp = New Outlook.Application
Set myMail = outlookApp.CreateItem(olMailItem)
For i = 2 To 5
source_fi
我对VBA有点陌生(将它与Excel结合使用),我目前正在学习一些教程,以了解它与Java C#的不同之处。但这不是问题.-)
这一篇教程告诉我如何在表单_Initialize过程中使用"Print“(我在VBA6中使用Office .别问我为什么,这不是我的决定。但是当我这样做的时候,它给了我上面提到的错误(或者至少我想这个错误必须用英语读,我的版本是德文:D)。
下面是我在一个非常简单的例子中试图做的事情:
Private Sub UserForm_Initialize()
Print "Hello World!"
End Sub
在本教程之后,应将"
我一直在尝试在我的VBA中使用Selenium来为chrome设置一个新的位置和大小,使它在我更新报表时变得“不可见”。
bot.Start "chrome"
bot.Window.SetPosition ("X as Long, Y as long") 'It requires a "="
bot.Window.Setsize(200,200) 'It requires a "="
我尝试过不同的形式,搜索了很多次,但我没有找到一个很好的Selenium的VBA命令教程
我根据微软教程页面上的示例VBA代码创建了一个子程序:
Sub WIP20Pivot()
'
' Pivot Macro
'Creates a PivotTable report from the table on Sheet1
'by using the PivotTableWizard method with the PivotFields
'method to specify the fields in the PivotTable.
Dim objTable As PivotTable, objField As PivotField
我正在尝试使用MS启动IE自动化,我正在学习教程。
我知道IE ReadyState =4意味着网页已经加载
根据该条:
在VBA中使用IE时,人们遇到的一个非常常见的问题是VBA试图在Internet完全加载之前运行代码。通过使用这段代码,您可以告诉VBA重复一个循环,直到IE就绪(IE.ReadyState - 4)。
'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop)
最近,我有一些关于多列的动态过滤的有趣问题。此外,我已经在S/O中搜索了所有的解决方案,但似乎没有一个有效: Autofilter for multiple columns in excel VBA :VBA for filtering columns :Dynamic filter using excel VBA 最近,我看了一篇Dynamic Filtering in Excel using VBA 的教程(注:我没有Microsoft365,因此过滤功能对我不起作用)。 我试图实现的是,当VBA脚本检测到textbox中的更改时,我只想使用一个文本框(链接在单元格C3上)同时过滤出列2
我是VBA的新手,我正试图自动地将数据导入excel。VBA教程给了我95%的支持,但是我失去了领先的0。我不知道在哪里或者如何编辑我的VBA以确保前面的0被维护。列A是Im丢失0的地方,但是如果它更简单,整个文件可以作为文本值导入。
我的VBA在下面。
Sub RSupplyOutput()
Dim fileToOpen As Variant
Dim filefilterpattern As String
Dim wsMaster As Worksheet
Dim wbtextimport As Workbook
Application.ScreenUpdating = False
我是在Excel中使用VBA的新手。我想查询一些数据以填充到我的excel工作表(表)中。
然而,在我在网上找到的许多教程(代码示例)中,我错过了so库/依赖项。下面是一个代码示例,其中我在运行Dim req As New MSXML2.XMLHTTP60错误时设置了Can't find project or library。
Sub BasicGETRequest()
Dim req As New MSXML2.XMLHTTP60
Dim reqURL As String
reqURL = "https://www.wiseowl.co.u
我试图将文本从网站的特定div导入到Word文档中的书签,但我无法从网站读取HTML。我尝试了100个教程,都是针对VBA Excel的(也许这就是原因),结果总是一样的。
假设我有一个这样的站点:
<html>
<div id = "test">
this is an example text
</div>
</html>
下面是我的VBA代码:
Sub read_html()
Set objIE = CreateObject("InternetExplorer.Application")
Dim ht
我是VBA新手,也是StackOverflow新手,我只是想通过学习教程来掌握一些窍门。如果我有两列数字,A列和B列,我想除以A/ B,并将结果放入C中。我想使用for循环来完成此操作。到目前为止,我拥有的代码是: Sub ForLooptoDivide()
Dim i As Integer
For i = 2 To 6
Cells(i, 3).Value = Cells(1, i).Value / Cells(2, i).Value
Next i
End Sub 就像我说的,我对此是全新的,并且刚刚遇到了教程的障碍。 谢谢!
我有一个正在尝试遍历的集合,我不能做任何问题。我想要实现的是看到集合中的下一个对象,但是我找不到任何关于这个对象的东西。
我尝试在if语句中使用(+ 1)来向前看,但这似乎不起作用。
For each a in CollBlank
if CollBlank(a + 1) <> "some value" then
'do code
end if
Next
理想情况下,我希望能够向前看。
Access-vba & excel-vba是有标签的,因为集合在access和excel中都有使用,我个人现在在Access中使用它,但大
在MS Access表中,我对每个项都有一些附件。
我希望通过VBA代码将每个附件保存在临时目录中。
我试图复制的VBA代码在本教程中。
问题是,当我试图为一个error '3265' item not found in this collection对象赋值时,我已经得到了DAO.Recordset2。
这是我的密码。
Private Sub Carica_Dati()
Dim rsParent As DAO.Recordset
Dim rsAttachment As DAO.Recordset2
Dim SQL As String
SQL = " SE
我目前正在学习VBA。 我正在youtube上观看关于如何使用VBA使用循环和if语句来创建我的工作表的副本以及如何删除它们的系列教程视频。 我将我的代码更改为以下代码: Sub deleteloop()
Dim x As Worksheet
Dim y As String
Dim z As String
Application.DisplayAlerts = False
For Each x In ActiveWorkbook.Sheets
y = x.Name
z
从一个VBA教程中,我了解到连续数字的变量应该首先声明为整数:
Dim mynumber as integer
但是,请看下面的代码:
Sub math()
A = 23
B = 2
ABSumTotal = A + B
strMsg = "The answer is " & "$" & ABSumTotal & "."
MsgBox strMsg
strMsg = "The answer is " & "$" & Sqr(ABSumTot