小编PBe*_*ezy的帖子

我有一个字符串数组(A到E),我想加入一个字符串("ABCD E").我应该遍历数组还是使用Join函数？

Dim MyArray(5) as String
Dim MyString as String

MyArray(1) = "A"
MyArray(2) = "B" 
MyArray(3) = "C" 
MyArray(4) = "D" 
MyArray(5) = "E" 

哪个更快,更明智？

这个？

MyString = MyArray(1)
For i = 2 To 5
    MyString = MyString & " " & MyArray(i)
Next

或这个？

MyString = Join(MyArray, " ")

我发现了这个问题，为什么当我按Run Sub时Excel VBA为什么会提示我输入宏名称，但答案却无济于事，因为我的sub没有参数并且不是由事件触发的。

我有两个潜艇。一个在模块中，一个在表单中。

Sub ModuleSub()
    MsgBox ("Hello World")    
End Sub


Sub FormSub()
    MsgBox ("Hello World")
End Sub

当我按F5键时，Module Sub确实运行，但是Form Sub却没有。它会弹出“宏”对话框。这里有什么问题？

我试图将Excel文件（Microsoft Excel 97-2003工作表（* .xls））导入Power BI，但出现了这个奇怪的错误。

Details: "Excel Workbook: The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine. The 64-bit version of the Access Database Engine 2010 Access Database Engine OLEDB provider is required to connect to read this type of file. To download the client software, visit the following site: https://go.microsoft.com/fwlink/?LinkID=285987."

我想将项目列表添加到集合中并避免添加重复项。这是我在 A 列中的列表

Apple
Orange
Pear
Orange
Orange
Apple
Carrot

我只想添加

Apple 
Orange 
Pear 
Carrot

这是我想出的方法，它有效，但并不漂亮。

dim coll as New Collection

ln = Cells(Rows.Count, 1).End(xlUp).Row

coll.Add (Cells(1, 1).Value)   'Add first item manually to get it started
For i = 1 To ln

    addItem = True    'Assume it's going to be added until proven otherwise

    For j = 1 To coll.Count    'Loop through the collection

        'If we ever find the item in the collection
        If InStr(1, Cells(i, 1), coll(j), vbTextCompare) > …

这两个 sub 在一个类中做同样的事情。

Sub DemoMe( )
    Me.AboutMe    ' Calls AboutMe procedure.
End Sub

Sub DemoMe( )
    AboutMe    ' Does the same thing.
End Sub

重点是什么？Me 关键字有什么作用吗？对象访问其自身成员的首选方式是什么？

创建一个运行以下代码的表单。

MsgBox (VBE.ActiveCodePane.CodeModule)

并出现此消息。

现在保存，关闭并重新打开数据库，然后看到以下消息：

运行时错误“ 91”：未设置对象变量或带块变量

如果您打开Visual Basic编辑器，它将再次运行。即使您关闭VBE，它仍然会运行。

但是，当您关闭整个应用程序并重新打开它，而使VBE关闭时，您会收到错误消息。

为什么？这里发生了什么？

如果我执行以下代码

Cells(3.0004, 5.604).Interior.ColorIndex = 1

它将为第3行第6列（F3）的单元格着色。它这样做没有抱怨，而且似乎在默默地舍入值。如何以及为什么？

我的班级有多种方法。一些方法接受参数。这些方法需要关键字“Call”才能工作。为什么？

MyObject.MyMethod   'Works just fine without Call.

Call MyObject.MyMethod(arg1, arg2)  'Requires Call. Won't compile without it.

您可以下载Google搜索,它们以多个JSON文件的形式出现.我正在尝试使用SQL函数OPENJSON将它们解析为[TimeStamp]和[Query Text]列

DECLARE @json as nvarchar(max)

SET @json = N'{"event":[{"query":{"id":[{"timestamp_usec":"1329003091748889"}],"query_text":"download google searches"}}]}'

SELECT * FROM OPENJSON(@json, N'$.event')
WITH (   
      [TimeStamp] nvarchar(max) N'$.query.timestamp_usec'   ,
      [QueryText]   nvarchar(max) N'$.query.query_text'   
)

查询文本返回结果,但时间戳只读取NULL.我究竟做错了什么？