Tag: loops
VBA：使用VLookUp在循环中设置dynamic值？
新的VBA用户在这里… 我已经build立了一个macros，运行一个文件夹中的每个文件，作为一个循环。 在macros的一个部分，有一个公式，其中包含每个文件都不相同的值。 下面是公式（每个文件的变化值是0.2483，其他都保持不变）： ActiveCell.FormulaR1C1 = "=(((" & signal_array(Element, 1) & ")- R[-83]C)/R[-85]C)*1000*0.2483" 我已经build立了一个表，列出了另一个工作簿中的每个文件名和相应的值。 我曾尝试在方程中使用vLookUp来查找基于文件名的文件，该文件是活动的。 这是我迄今为止，我得到一个“运行时错误：1004”上： ActiveCell.FormulaR1C1 = "=(((" & signal_array(Element, 1) & ")- R[-88]C)/R[-90]C)*1000*(=VLOOKUP(" & ActiveWorkbook.Name & ",'[Calibration Curves.xlsm]Sample Weights'!A2:B10,2,FALSE))" 如何使这项工作的build议？
循环遍历其列由variables指定并且其行是i的列
我正在尝试创build一个macros来自动填充VLOOKUP列。 macros调用函数FindNectEmpty查找下一个空单元格，并将该单元格设置为variablesOpenCellVoucher（这是列标题）。 调用相同的函数来查找OpenCellVoucher单元下的空单元（该单元是variablesFillCellVoucher）。 然后我想在该列的所有单元格上执行一个VLOOKUP。 这就是我所拥有的，但是我在这条线上出现错误，需要一个对象。 为什么这不是一个对象？ 任何想法来解决这个问题？ Range(FillCellVoucher.Column, i).Formula = Application.WorksheetFunction.VLookup(J2, DollarRanges.Range("$A$2:$B$14"), 2, 1) Dim OpenCellVoucher As Range Dim FillCellVoucher As Range Dim lngRow As Long Set NextCell = FindNextEmpty(ActiveWorkbook.Sheets("Master").Range("A1")) ActiveWorkbook.Sheets("Master").Select NextCell.Value = "Dollar Range of Remaining Balance" 'Find Open Vouchering column Set OpenCellVoucher = Worksheets("Master").Range("A1:O1").Find("Open for Vouchering Amt", =xlPart) 'Looks up next empty cell […]
如何在R中使用具有特定行和列的循环读取多个xlsx文件
我必须读取具有随机名称的多个xlsx文件到单个数据框中。 每个文件的结构是一样的。 我只需要导入特定的列。 我试过这个： dat <- read.xlsx("FILE.xlsx", sheetIndex=1, sheetName=NULL, startRow=5, endRow=NULL, as.data.frame=TRUE, header=TRUE) 但是，这是一次只有一个文件，我不能指定我的特定列。 我甚至尝试过： site=list.files(pattern='[.]xls') 但之后循环不起作用。 怎么做？ 提前致谢。
循环search多个条件的匹配
我有两本练习册和三张床单。 为了简单起见，将它们wb1Sheet1 ， wb1Sheet2和wb2Sheet1 。 我的代码是： 在wb1Sheet2的列中wb1Sheet2任何（非零）值用作条件（Crit）。 对于每个标准，它将searchwb1Sheet1的特定列。 匹配行被复制到另一个工作簿： wb2Sheet1 。 当我为一个定义的标准编写代码时，它工作正常。 但是，当我试图将其修改为循环中的循环（比较每个标准与每行），它不起作用。 Dim wb1 As Workbook Dim wb2 As Workbook Dim src As Worksheet Dim Dst As Worksheet Dim src2 As Worksheet Dim Crit As Range Set wb1 = ActiveWorkbook ' Set wb2 = Workbooks.Open(Filename:="C:\Test.xlsx") Set src = wb1.Sheets("wb1Sheet1") Set Dst = wb2.Sheets("wb2Sheet1") Set […]
Excel VBA参考在DoWhile循环的vlookup公式中命名工作簿
这似乎应该是简单的，但我真的坚持下去。 这是从目录中的多个工作簿中获取值并将其编译到一个工作簿中的代码。 我正在使用vlookup，因为值不总是在完全相同的单元格，但始终具有相同的行标题。 该代码打开目录中的每个工作簿并将其命名为wb。 我想在Vlookup公式中引用wb，但是在做这件事时遇到了麻烦。 当我尝试下面的代码，它给了我一个“循环没有做”的错误（但是当我运行相同的代码没有公式，只是复制和粘贴范围，这是好的）。 我也尝试在wb中命名一个范围并引用它。 'Target File Extension myExtension = "*.xls" 'Target Path with Ending Extention myFile = Dir(myPath & myExtension) 'Loop through each Excel file in folder Do While myFile <> "" 'Set variable equal to opened workbook Set wb = Workbooks.Open(fileName:=myPath & myFile) 'Put ID from filename into sheet If right(wb.Name, […]
HTML到Excel +更改页面循环
错误说Object variable or With block variable are not set 。 但是，当我试图将doc定义为文档或word文档时，它不允许这样做。 提前致谢！！！ Sub HTMLtoExcel() Dim doc As Object Dim i As String i = 1 Do While i <= 1783 Set doc.getElementById("Pages").Value = CStr(i) With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http:/xxx.yyy" _ , Destination:=Range("$A$1")) .Name = _ "its_details_value_node.html?nsc=true&listId=www_s201_b9233&tsId=BBK01.ED0439" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting […]
循环工作表在Excel中使用C＃
我想循环所有工作表在Excel中，需要插入到SQL Server表中。 我已经完成了一个编码部分插入一个单张表excel到一个sql服务器表。 如果Excel中包含更多的工作表，我想要循环这些工作表，并需要将其插入到SQL Server表中。 我写了下面的代码循环的目的，但它给出了以下错误; “ComException被捕获”“检索具有CLSID {00024500-0000-0000-C000-000000000046}的组件的COM类工厂失败，原因如下：80040154类未注册（exception来自HRESULT：0x80040154（REGDB_E_CLASSNOTREG））。 这是循环的代码： string path = @"D:/Projects/sample.xls"; string strConnection = ConfigurationManager.ConnectionStrings["Source"].ToString(); string excelConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1\";"; Excel.Application ExcelApp = new Excel.Application(); var Wbook = ExcelApp.Workbooks.Open(path); foreach (var sheet in Wbook.Worksheets) { OleDbCommand cmd = new OleDbCommand("Select [Name], [City], [Address], [Designation] from [" + […]
循环访问DataGridView单元格
我正在创build一个生成条形码的程序，然后打印出货标签。 我有一个function，允许用户上传到datagrid视图的电子表格。 其中一个列名称是“跟踪号码”。 我希望能够循环遍历每个有跟踪号码的单元格，然后在称为“条形码”的列中生成一个新的单元格中的条形码。 我明白这有一个循环function，但我从来没有使用过。 生成条形码的代码如下，它调用两个类： Image barc = Rendering.MakeBarcodeImage(txtTrack.Text, int.Parse(txtWidth.Text), true); pictBarcode.Image = barc; 任何帮助将非常感激。 我会高兴地回答任何其他问题。
