Tag: 外部

将外部工作表复制到当前工作簿Excel VBA: 我正在处理一个小型项目，在这个小型项目中，我需要从其他工作簿中工作表的外部数据库中将工作表添加到当前打开的工作簿中。我做了一个表单来导入当前打开（活动）工作簿中所需的任何表单。这些工作表将从远程（在任何其他文件夹，但同一台计算机）工作簿中复制。我正在使用下面的代码，但由于未知的原因，工作表并没有被复制到我目前的工作簿。紧急帮助表示赞赏。 Dim wb As Workbook Dim activeWB As Workbook Dim FilePath As String Dim oWS As String Set activeWB = Application.ActiveWorkbook FilePath = "D:\General Required Docs\DATA.xlsm" If optFirst.Value = True Then Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next oWS = cboMaterial.Value Set wb = Application.Workbooks.Open(FilePath) wb.Worksheets(oWS).Copy After:=Application.ActiveWorkbook.Sheets(ThisWorkbook.Sheets.count) activeWB.Activate […]

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行不同工作表/文件中的表？

刷新数据透视表，但不是外部数据源: 我有一个包含多个表格的电子表格，其中数据是从外部数据源（SQL数据库）中提取的。通过更改下拉框中的选项然后按下button来运行VBA，可以刷新连接/表格。连接到每个这些表是一个数据透视表。数据透视表不会随表格一起刷新。如果我尝试按刷新所有我得到的错误; '未find数据源名称并且未指定默认驱动程序' 但是，如果我通过电子表格并刷新每个数据透视表，他们更新没有错误。所以，无论我需要某种方式来获取数据透视表刷新与表或有一个button只刷新数据透视表，而不是外部数据连接。任何想法赞赏，我不知道从哪一个开始！

将外部单元格地址转换为vba中的范围: 我在单元格A1中有一个string，它是外部单元格的单元格地址（即另一个工作簿）， '[data transfer utility.xlsb]Sheet1'!$B$5 在vba我想创build一个范围对象， myRange ，将对应于存储在单元格A1中的地址。我尝试了各种解决scheme，但都没有工作。

Count如果在不同的工作簿范围内: 我一直试图找出这个问题的根源很长一段时间，但无济于事。我正在计算在另一个工作簿中出现特定文本的实例数（在这种情况下，实例是“42.1”，工作簿名称将包含在Filename1中）。出于某种原因，当我直接在表单中执行countif时，会得出正确答案（应该是2）。但是每当我运行下面的代码，它给了我3。所有的引用都显示OK，因为我手动调用另一个工作簿中的每个值，并且没有问题。能否请你帮忙？请注意CounttIfV，它基本上等价于应用函数CountIf和I可以互换使用。 'manually define the latest S&OP input file filename = Application.GetOpenFilename Shapes("DisplayFilename").TextFrame.Characters.Text = filename 'activate the S&OP Workbook Filename1 = Split(filename, "\")(UBound(Split(filename, "\"))) Workbooks.Open (Filename1) Workbooks(Filename1).Activate 'define the correct S&OP worksheet regardless of the date For Each ws_mould In ActiveWorkbook.Worksheets If ws_mould.Name Like "*Mould*" Then Worksheets(ws_mould.Name).Activate active_ws = […]

在Excel中使用串联dynamic引用外部单元格: 我有一个工作簿，我正在试图从外部Excel文件拉入数据。理想情况下，我想在主工作簿中指定一个文件path，该文件path是从中拉取数据的位置，然后使用另一个单元格来确定该文件path内要查找的单元格。例如：单元格A1 = C：\ Documents \ book.xlsx （文件path）单元格A2 = sheet3 （book.xlsx中，我想看看）单元格A3 = H8 （我想从book.xlsx检索的单元格）有没有办法，我可以把这些一起创build一个参考单元，使用CONCATENATE和INDIRECT在这一刻，但它只是给我一个#REF错误。例如 =INDIRECT(CONCATENATE("[", A1, "]", A2, "!", A3)) （将给出[C：\ Documents \ book.xlsx] sheet3！H8的值）

在Excel中的SQL查询: 我有这个查询，其中参数是从一个excell工作表中的2个单元格中提取，其他查询的位置。所以，问题是我打开数据连接来改变查询，因为它返回的值是错误的，并重新查询。现在我做了以下几点： DECLARE @year AS int DECLARE @month AS int DECLARE @date AS datetime SET @year = ? SET @month = ? SET @date = DATEADD( month, 1, CONVERT( datetime, CONVERT( varchar(4), ?) + '-' + RIGHT( '0' + CONVERT( varchar(2), ?), 2 ) + '-01' ) ) SET @date = DATEADD( month, 1, […]

在VBA中修改现有的Excel连接名称: 我需要更新Excel工作簿的sql连接的连接名称。这是我的尝试。我已经能够通过执行标准的replace修改连接string和命令文本。 Sub ConnectionString_modify() Dim i As Long Dim cnt As Long Dim modtext As String Dim modrange As String 'Grab nummber of workbook connections cnt = ActiveWorkbook.Connections.Count For i = 1 To cnt 'Changes to Connection string –This works modtext = ActiveWorkbook.Connections.Item(i).OLEDBConnection.Connection modtext = VBA.Replace(modtext, "_FY2013", "_FY2014") ActiveWorkbook.Connections.Item(i).OLEDBConnection.Connection = modtext 'Changes Connection Name […]