Tag: 定义

VBA引用不同的工作表中的表

我正在尝试在VBA中使用vlookup。 Filename = Application.GetOpenFilename（FileFilter：=“Excel文件（* .xls），* .xls”，标题：=“请select一个文件”） Table1 = Sheet1.Range（“A3：A7000”）'SiteID Table2 = [Filename] Sheet1.Range（“A3：I13”） Roww = Sheet1.Range（“E2”）。Row Coll = Sheet1.Range（“E2”）。Column 对于每个cl在Table1中 Sheet1.Cells（Roww，Coll）= Application.WorksheetFunction.VLookup（cl，Table2,1，False） Roww = Roww +1 下一个cl 我的问题是如何定义位于第3行不同工作表/文件中的表？

消除“打开”variables定义工作簿3次？

有多个定义的范围，我从一个工作簿复制和粘贴到另一个。 我写的代码打开一个定义为variables的工作簿，复制某些单元格，切换到“thisworkbook”并粘贴单元格。 我想从作为variables定义的工作簿复制更多的单元格，但无法弄清楚如何“切换”。 我不想单独打开工作簿3次。 如何绕开.open线？ 谢谢 Sub MDVwk1() 'turn off screen refreshing Application.ScreenUpdating = False 'pick the correct timesheet TimeSheetMDV1 = Application.GetOpenFilename 'Opens the workbook chosen for MDV week 1 Workbooks.Open TimeSheetMDV1 'Copies the project number cells and pastes them in the workbook under week 1 for MDV Range("B5:B100").Copy ThisWorkbook.Sheets("Mark").Activate 'Pastes the copied cells Range("B10").PasteSpecial […]

工作簿的定义不正确

我试图在VBA中执行一个相当简单的命令（给一个范围赋值），并得到一个错误“应用程序定义或Web定义的错误”。 经过一些疑难解答，我认为这与我的工作表的定义有关。 这是我的代码： Sub CommandButton1_Click() Dim arr() As String Dim path As String Dim filename As String Dim w1 As Workbook Dim w2 As Workbook Set w1 = ThisWorkbook Dim rng As Range 'w1.Worksheets(1).Range(Cells(1, 13), Cells(1, 22)) = 1 **#works perfectly, populates the given cells with 1's** path = "C:\Users\Nenko\Desktop\" filename = "D1.csv" Workbooks.Open filename:=path […]