Tag: 运行时错误

设置工作簿variables时出错 – 2147352565

我有一个简单的代码，运行在初始化一个用户窗体，设置一些工作簿和工作表variables，以便他们可以很容易地在我的模块的其余部分使用，并且引用可以很容易地改变在一个地方，如果文件移动。 我最近将我的工作簿从桌面迁移到一个单独的服务器/驱动器，并相应地更新了文件path; 然而，当我尝试运行代码，我立即得到的消息： “运行时错误”-2147352565（8002000b）'：无法将焦点移动到控件上，因为它是不可见的，未启用或不能接受焦点的types。 该错误发生在线上 Set ReportWkbk = Workbooks("N:\ rest of file pathway here\QuaRT_Template.xlsm") 服务器/驱动器上是否有可能导致此问题的事情？ 如果是这样，有什么我可以做的，以解决它？ 我可以使用保存在同一位置的其他Excel工作簿，尽pipe它们的引用不在工作簿本身，而不是通过Visual Basic。

VBA Excel中部分置换生成器的数组版本

我试图做一个VBA代码来安排一个n集的k元素子集到一些序列。 换句话说，我试图列出n个成员集的所有k个排列 。 例如，我们试着列出每个字符在Range("A1:C1")单元格中的所有集合{A，B，C}的2个排列 。 这里是所有的排列： {A,B} {A,C} {B,A} {B,C} {C,A} {C,B} 如果在数据input的每个字符中没有重复，则执行上述任务的以下代码可以正常工作： Sub Permutation() Dim Data_Input As Variant, Permutation_Output As Variant Dim Output_Row As Long, Last_Column As Long Rows("2:" & Rows.Count).Clear Last_Column = Cells(1, Columns.Count).End(xlToLeft).Column Data_Input = Application.Transpose(Application.Transpose(Range("A1", Cells(1, Last_Column)))) k = InputBox("Input the value of k for P(" _ & UBound(Data_Input) & " […]

运行时错误1004'范围类失败的复制方法'

我在我的代码中得到以下错误 运行时错误1004'范围类失败的复制方法' 代码的作用是让用户点击一个打开一个txt框的命令button，并允许用户从文件目录中select一个文件。 然后，第二段代码通过所选工作簿的F列，find一个国家，然后创build一个新的工作表副本，并将该国家的数据粘贴到新工作表中，然后将该工作表的名称返回到F列并重复为其他国家。 如果工作表在65,000或更less，macros表运行完美，但超出了我们所能获得的数据量，那么这个工作表就是280,000行 运行时错误1004'范围类失败的复制方法' 代码错误.SpecialCells(xlCellTypeVisible).Copy ActiveSheet.Range("A1") 'copy data for country under header我的代码可以修改为容纳大量的行 Sub Open_Workbook_Dialog() Dim my_FileName As Variant MsgBox "Pick your TOV file" '<–| txt box for prompt to pick a file my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*") '<–| Opens the file window to allow selection If my_FileName <> False Then Workbooks.Open Filename:=my_FileName Call Filter […]

在Excel VBA中删除基于FALSE值的行（运行时错误91）

我有一个电子表格，需要删除基于“FALSE”值的行。 研究networking，我发现这个网站的一些代码： https://www.extendoffice.com/documents/excel/815-excel-remove-rows-based-on-cell-value.html Sub DeleteRows() Dim rng As Range Dim InputRng As Range Dim DeleteRng As Range Dim DeleteStr As String xTitleId = "Delete Based on Cell Value" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) For Each rng In InputRng If rng.Value = DeleteStr […]

VBA将Excelfile upload到Sharepoint。 运行时错误“1004”

大家好，我希望你能帮上忙。 我有一段代码，如果单元格A2更改为“Enter Your Country Here”以外的任何内容，它将在工作簿中使用A2中的新值replace所有“在此input您的国家/地区”。 这部分工作正常。 我遇到的问题是，一旦发生单元更改，我也希望工作簿保存到我们的Sharepoint环境。 但是，我一直在下面的行上得到运行时错误'1004' SaveAs Filename:="http://teamspace.merck.com/sites/emea_efpia/Shared%20Documents/Forms/AllItems.aspx?RootFolder=%2Fsites%2Femea%5Fefpia%2FShared%20Documents%2FEFPIA%20Regional%20Reporting%20Team%2FDispute%20Management%2FDispute%20reports%20per%20market%2FGlobal%20Reporting&FolderCTID=0x012000FA7F4E9565D6274DAF9E871EA008299B&View=%7BB6EF0397-E24C-49DF-92EF-CB7015B60539" 如果我用C盘或本地地址replaceSharepoint地址，它可以很好地工作。 我错过了什么吗？ 我的代码是否可以修改为允许工作簿保存到Sharepoint？ 我的代码是低于和往常一样，所有的帮助非常感谢。 码 Private Sub Worksheet_Change(ByVal Target As Range) ThisFile = Range("A2").Value Dim cell As Range Dim sht As Worksheet Dim fnd As Variant Dim rplc As Variant fnd = "Enter Your Country Here" rplc = Worksheets("SearchCasesResults").Range("A2").Value For Each sht In ActiveWorkbook.Worksheets sht.Cells.Replace […]

设置Excel FormatConditions字体颜色运行时错误

在设置条件格式时，我在行上收到运行时错误“1004” .Font.color = vbRed 。 该Sub在Excel 2011 for Mac上运行良好，但在Windows上失败。 我试着重新排列代码，使用RGB(255,0,0) ，设置.ColorIndex ，以及录制macros并使用该代码。 所有在Windows中失败。 如果单元格以“Med”开头，我试图将字体颜色设置为红色。 子从这里被调用： Public Const BASE As String = "$D$14" Dim cols As Long Dim rows As Long Dim applyToRange As Range Dim condition As String ' rows and cols variables set here… Set applyToRange = Range(BASE, Range(BASE).Offset(rows – 1, cols – 1)) […]

VBA另存为运行时错误1004

我已经编写了这个VBA代码来保存指定位置的文件的新版本。 它在我的电脑上绝对正常，但不会在同事身上工作。 我们都使用相同版本的Excel。 我已经确定工作簿中没有密码，并确保他对文件具有完全的权限。 Sub SaveNew() Dim FileName As String Dim Path As String Dim Plnt As String Dim PC As String Dim fso As FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'Save and calculate workbook before changes. Patse Filename so it doesnt change ActiveWorkbook.Save ActiveSheet.Calculate ActiveSheet.Select Range("c7").Copy Range("c8").PasteSpecial xlPasteValues 'Define path and filename Path = "Z:\UK\BFD\MAReports$\PPV […]

运行时错误1004调用通过vba打开的另一个工作簿中的macros

以下代码用于工作，但现在返回运行时错误1004。 Sub ResizeListObject_DateRange() ' Do Some things … Call HubLink.HubLaunch Application.Run "'" & MacroHub & "'!" & "ResizeListObject", TableName, LstRow Call HubLink.HubClose End Sub 下面是HubLaunch子。 它打开第二个工作簿，其中包括一个macros，然后要求运行。 我可以通过注释掉“Call HubLink.HubLaunch”行来避免运行时错误，而是在执行子“ResizeListObject_DateRange”之前手动打开MacroHub.xlsm文件（通过文件>打开> [select我的文件]）。 在即时窗口中，我validation了这一点？Workbooks.Count = 2.我不明白为什么我的HubLaunch子版打开MacroHub.xlsm工作簿的方式，使得它的macros无法访问第一个工作簿。 任何人都可以解释错误？ 谢谢。 ' Opens the Workbook that stores all common macros Sub HubLaunch() ' The current workbook Dim WkBk As String WkBk = […]

VBA循环第88次迭代失败

我有以下的Sub，如果它覆盖的范围less于88个单元，则工作正常，否则在第88次迭代时会失败。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 And Target.Row >= 3 And Target.Row <= 30 And Target.Column >= 17 And Target.Column < 22 Then i = Target.Row Dim MergeGroups As Range Dim GroupTable As Range Dim rngStart As Range Dim rngEnd As Range Dim rngToCount As Range Dim CurrentGrp As Range […]

关于application.match vba十进制数的错误2042

我无法将范围的最大值匹配到相同的范围内。 这样做的目的是要知道哪一列我可以find最大值。 即时通讯与这个代码尝试 Set rango = Range(Cells(45, W), Cells(46, W1)) rango.Select maximo = WorksheetFunction.Max(rango) matching = Application.Match(CLng(maximo), Sheets("Dinamicos").Range(Cells(45, W), Cells(46, W1)), 0) 但是我得到了2042错误。 在这一节即时我试图匹配百分比，如果我使用的代码 Set rango = Range(Cells(45, W), Cells(46, W1)) rango.Select maximo = WorksheetFunction.Max(rango) matching = WorksheetFunction.Match.Match(CLng(maximo), Sheets("Dinamicos").Range(Cells(45, W), Cells(46, W1)), 0) 我得到运行时错误1004无法获取WorksheetFunction的匹配属性