比较两个工作簿工作表excel vba

Question

我正在处理一个新的 excel jfor 1 周，我想比较打开的 excel 文件当前打开的文件，

我尽一切可能，但每当我尝试读取该行时，它只读取打开的值，我无法访问读取我的宏被编码的当前工作簿

Sub test1()
Dim iComp
Dim sheet As String
Dim wbTarget As Worksheet
Dim wbThis As Worksheet
Dim bsmWS As Worksheet
Dim c As Integer
Dim x As Integer
Dim strValue As String
Static value As Integer

Dim myPath As String
Dim folderPath As String
k = 3


Filename = Application.GetOpenFilename("Excel files (*.xls*),*.xl*", Title:="Open data") ' Choosing the Trigger Discription
'Set wbTarget = ActiveWorkbook.ActiveSheet
Set theRange = Range("A2:A4")
c = theRange.Rows.Count
strValue = vbNullString
For x = 1 To c
strValue = strValue & theRange.Cells(x, 1).value
Next x


'Set tabWS = Sheets("Tabelle1")



folderPath = Application.ActiveWorkbook.Path
myPath = Application.ActiveWorkbook.FullName
Set bsmWS = Sheets("Tabelle1")

Set wbkA = Workbooks.Open(Filename:="myPath")
Set varSheetA = wbkA.Worksheets("Balance sheet").Range(strRangeToCheck)

1000行代码，我只放了sn-p。

我在我编程的工作簿中有我的工作表。我想打开另一个工作表，取值并将其与我当前的工作表进行比较。如果字符串匹配（ex range (A1:A2)）则 msgbox 是

Answer 1

您是否尝试过使用 ThisWorkbook.Sheets("sheet name").Range("A2:A4") 或 ThisWorkbook.ActiveSheet.Range("A2:A4")。这将确保引用的是代码所在的工作簿。

有关 Application.ThisWorkbook 的更多信息 https://msdn.microsoft.com/en-us/library/office/ff193227.aspx.