Tag: 运行时错误

运行时错误1004：工作表类的粘贴方法失败

有很多关于这个错误的信息，以及如何解决，但我已经尝试了这么多，没有任何工作：看到下面的问题块的代码 Range("A1:K2").Select Selection.Copy Windows("EIL Depannage Register.xlsm").Activate Sheets("Raising Depannage").Select ActiveSheet.Unprotect Sheets("Import_Sheet").Select ActiveSheet.Unprotect Range("A1").Select Application.Wait (Now + TimeValue("00:00:10")) ActiveSheet.Paste <<<<<error happens at this line 使用.Paste最后一行发生错误。

VBA：将所有数据复制到其他工作簿的工作表

我有一个在我的电脑上运行良好的macros，但没有在我以前从未见过的朋友的电脑中。 错误来自于这个部分： … Workbooks("GOP_Flow_" + Format(DateAdd("m", -1, Date), "yyyy") + Format(DateAdd("m", -1, Date), "mm")).Worksheets(1).UsedRange.Copy main.Worksheets(2).Range("A1").PasteSpecial (xlPasteValues) … 运行时错误9：复制行上的“下标超出范围”。 – 由于我们使用相同版本的Excel，这种事情怎么会发生呢？ – 有没有其他的方法来做到这一点？ 先谢谢你。

VBA代码有时工作，但有时不会在表格式化的工作表中的AutoFilter行

Private Sub CommandButton2_Click() . . Set ws1 = Sheet1 ws1.Activate 'I'd like to see the sheet that's why I activate it. It's not a bad practice. ws1.Columns.Hidden = False ws1.Rows.Hidden = False ws1.AutoFilter.ShowAllData . . 我有另一个表中的CommandButton2，每当我点击，它首先清除Sheet1中的所有filter，然后Unhidden任何列或行（如果存在）。 我尝试了很多不同的变化来解决这个问题。 我做2-3或4列过滤，然后同时隐藏一些行和列。 但不幸的是我找不到原因。 有时我的代码完美地工作。 我的意思是，它隐藏了每一个隐藏的行和列，然后清除列中的所有filter。 有趣的是，有时代码部分工作。 有时我的代码工作，但不隐藏隐藏的行/列，并没有清除filter。 所以它看起来在技术上是可行的，但不是function性的。 有时它会产生Runtime 91错误。 有时它完全不起作用并给出Runtime 91 Object variable or With Block variable not […]

如何使用不同的列标题将多个工作表复制到主工作表

第一次由长期用户的海报！ 希望你能帮助填补空白！ 我正在尝试创buildvba，通过匹配列标题将多个工作表合并到一个主工作表中。 我已经find了来自微软的多个线程和文档，但是我仍然很短。 我已经从其他用户抓住了很多，并添加了我需要的扭曲。 这是我有… Option Compare Text Sub cc() Dim Sheet As Worksheet Dim DestSheet As Worksheet Dim Last As Long Dim SheetLast As Long Dim CopyRange As Range Dim StartRow As Long With Application .ScreenUpdating = False .EnableEvents = False End With Set DestSheet = Sheet("Database_Headers") StartRow = 2 For Each Sheet […]

VBA：复制范围。 运行时间错误9 – 下标超出范围

我是VBA新手。 我正试图将列从一个工作簿复制到另一个工作簿。 下面是我试图使用的子，但得到“运行时错误9 – 下标超出范围”的错误。 有什么build议么？ Sub copydata(wbSource As String, wsSource As String, rangeSource As String, wbDest As String, wsDest As String, rangeDest As String) Workbooks(wbSource).Worksheets(wsSource).Range(rangeSource).copy Destination:=Workbooks(wbDest).Worksheets(wsDest).Range(rangeDest) End Sub Sub result() ' I also tried to set wsSource and wsDest to 1 but still doesn't work Call copydata("es.csv", "es", "A:B", "Workbook1.xlsm", "result", "A:B") End Sub […]

VBA Mac Excel 2016：图表.Export权限被拒绝错误70

尝试在Mac Excel 2016中将范围保存为jpeg图像。我运行VB代码，首先出现此错误：“运行时错误”-2147287035（80030005）“：指定的尺寸对当前图表无效types。” 如果我再次点击debugging，然后F5，我得到这个错误：“运行时错误'70'：权限被拒绝。 从我的研究中，前者是沙箱问题或图表问题。 我甚至补充了grantAccessToMultipleFiles，但没有帮助。 部分问题： .Chart.Export Filename:=ThisWorkbook.Path & "/william.jpg", Filtername:="JPG" 以下是完整的代码： Sub SaveImage() 'from stackoverflow originally Dim sSheetName As String Dim oRangeToCopy As Range Dim Lastrow As Integer Dim manager As String manager = Worksheets("by Mgr").Range("C6").Value Set b = Worksheets("by Mgr").Range("T:T").Find(what:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues) Lastrow = b.Row sSheetName = "by Mgr" ' […]

VBA运行时错误438

我一直在研究一个小macros，但遇到了一个错误。 macros的function如下：在现有工作表中有一个库存清单。 macros进入文件夹并打开存储build议的电子表格。 然后回到原来的表格，拿出每个股票代码，然后进入build议表，看看是否有相应的股票，以及它的推荐是什么。 代码工作正常，但是我现在得到一个VBA运行时错误438，当我试图让macros切换它需要工作的工作簿。 该错误发生在行application.wb2.activate ，然后再降低与application.wb2.activate和application.wb.activate 当我用完整目录replacewb和wb2时，即H：\ A \ AA \ recommendations.xlsx和H：\ A \ AA \ 2017年11月xlsm，它工作正常。 希望这里有任何帮助！ 谢谢！ Option Explicit Option Compare Text Sub gsr() Dim firstrow As Integer, lastrow As Integer, i As Integer Dim gsr As Range, msr As Range Dim stock, findstock As Range, col As Integer Dim sPath As […]

Excel运行时错误1004

我目前正在创build一个预订系统，作为ICT IEA课程的ICT项目。 我使用Excel的预订系统，其中的一部分是这个股票名单，就像一个画廊与产品的图像。 该项目的一个要求是，当你点击图片时，它会转到一个单独的项目页面，我试图通过使用一个基本的macros来切换页面。 但是，每当我点击启用macros的图像，“运行时错误1004”窗口出现。 macros的编码如下： Sub ipadcoverbuddy() ' ' ipadcoverbuddy Macro ' Sheets("ipad coverbuddy").Select End Sub 在closures错误窗口后单击debugging时， Sheets("ipad coverbuddy").Select行Sheets("ipad coverbuddy").Select 。 它工作得很好，如果工作表选项卡不隐藏但是我希望工作表的选项卡被隐藏，这意味着它不会工作。 我如何解决这个问题？ 谢谢！

Excel错误1004，是的时候突出显示双眼细胞灰色

我试图把一个macros，我selectYes连续的，下一个单元格变灰。 所以我有几列是，但是对于我的生活无法找出/修复错误 错误 运行时错误1004 应用程序定义或对象违反的错误 码 Private Sub Worksheet_Change(ByVal Target As Range) If ActiveCell.Column = 5 Then Set r = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 7)) If Target.Value = "Yes" Or Target.Value = "YES" Then r.Interior.Color = RGB(192, 192, 192) Else r.Interior.Color = xlNone End If End If If ActiveCell.Column = 7 Then Set s = Range(ActiveCell.Offset(0, […]

ObjWorkbook.Worksheets.Count不工作

我正在尝试编写一个代码来打开一个Excel文件，然后search它。 即使如此，我只是检索工作簿中的工作表数量的问题。 我得到的错误： 424 – VBScript运行时错误，对象必需 有什么想法吗？ 这是我遇到的问题的一小部分代码： Dim Shell : Set Shell = WScript.CreateObject( "WScript.Shell" ) Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject") Dim objExcel : Set objExcel = CreateObject("Excel.Application") Dim myworkbook, worksheetcount Set myworkbook = objExcel.Workbooks.Open("C:\Temp\Test.xlsx") On Error Resume Next Set worksheetcount = myworkbook.worksheets.count 'fails If Err.number <> 0 Then ShowError() myworkbook.Close False […]