- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我获得了一个通过从网站下载文本文件来检索数据的功能。
在 gop sub 中,当我调用该函数时,文件将打开,但是当我尝试将数据复制到工作表“数据”时,会发生错误:
Paste method of worksheet class failed.
有时这是另一个错误。
有人知道解决办法吗?
Sub gop()
Dim oWsBDR As Excel.Workbook
'On Error Resume Next
Set oWsBDR = WbBDR()
If oWsBDR Is Nothing Then
MsgBox "Le fichier n'a pas été extrait."
Else
'Set Workbooks("Task2").Worksheets("Data") = oWsBDR.Sheets("downloadFile")
oWsBDR.Worksheets("downloadFile").Cells.Copy
'Windows("Task2.xlsm").Cells(1, 1).Paste 'This doesn't work either
Windows("Task2.xlsm").Cells(1, 1).PasteSpecial xlPasteValues 'Error
Application.CutCopyMode = False
With Worksheets("Data").Cells
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.ColumnWidth = 30
End With
Set oWsBDR = Nothing
End If
Application.DisplayAlerts = False
Windows("downloadFile.ln").Close
End Sub
Public Function WbBDR() As Excel.Workbook
Dim bOk As Boolean
Dim m_oME As Excel.Workbook
Dim m_oBDR As Excel.Workbook
If m_oBDR Is Nothing Then
bOk = False
Err.Clear
On Error Resume Next
Do Until bOk
Workbooks.OpenText Filename:="https://.../starw/downloadFile.ln?fileName=bdr_ast_gop", _
Origin:=xlMSDOS, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=True, _
Comma:=False, _
Space:=False, _
Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), _
Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), _
Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), _
Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array(36, 1), _
Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array(42, 1), _
Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), _
Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), Array(53, 1), Array(54, 1), _
Array(55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array(59, 1), Array(60, 1), _
Array(61, 1), Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1)), _
TrailingMinusNumbers:=True
If Err.Number = 0 Then bOk = True
Err.Clear
Loop
On Error GoTo 0
Set m_oBDR = Application.Workbooks("downloadFile.ln")
End If
Set WbBDR = m_oBDR
End Function
最佳答案
您尚未指定工作表
。也许您想要这样的东西:
Workbooks("Task2.xlsm").Worksheets("Data").Cells(1, 1).PasteSpecial xlPasteValues
<小时/>...
也使用这个(如下)是自找麻烦:
oWsBDR.Worksheets("downloadFile").Cells.Copy
快速解决方法是:
oWsBDR.Worksheets("downloadFile").UsedRange.Copy
关于vba - 错误: Paste method of worksheet class failed,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42533101/
我知道使用对象变量是良好的编码习惯。我正在尝试创建一个名为 wsc 的对象变量,该变量将使用对事件工作簿的工作表集合的对象引用进行初始化。请参阅下面的代码。 我尝试将对象变量数据类型设置为工作表,但它
我在遍历 for 循环中的一系列项目时遇到问题: 该程序应该如何工作- 我从工作表 1(“跟踪电子表格”)开始,根据工作表 1 的变化(在单元格中选择"is"),它会将您转移到工作表 2(“延期提交”
我现在在 Excel 中使用宏仅大约 4 个月,基本上是通过查找现有代码并弄清楚其工作原理来自学。我现在有点陷入困境。 我的 Excel 工作簿中有一份报告。我需要根据 D 列中出现的数据跨多个工作表
工作簿workbook = this.getWorkBook(文件,路径); 工作表sheet = workbook.getSheet("WorkArea"); //sheet.save(); //s
use strict; use warnings; use Spreadsheet::ParseExcel; use Spreadsheet::ParseExcel::SaveParser; my $
我有 2 个工作簿....OdysseyDeposit 我的源数据所在的位置和 Civil Bank Accnt Recon,其中包含 OdysseyDeposit 的 VLOOKUP。 这是我正在使
我正在使用 Excel for Mac 2011,我在一张纸上有几个复选框。我正在尝试使用以下代码使它们自动化: Private Sub CheckBox12_Click() Dim ws A
我有一个简单的类 calc 可以对输入进行平方和立方: object calc2 { def square(nmr: Int) = { calc.square(nmr) } def
对于以下代码,我收到此错误 Method or Data Member not found. Private Sub Workbook_Open() Dim ws1 As Worksheet:
我的第一个问题是 Cells(i, 4) 命令的作用是什么,一直到 Cells(i, 7)。 Option Explicit Sub batch1() Sheets("Batch").Acti
我可能是瞎子,但我已经使用 VBA 几年了,但仍然写出来 Workbook("Book1").Sheets("Sheet1").Range("A1").Value 或者(将 Book1 调暗为工作簿,
此正则表达式出现错误: Matcher worksheetMatcher = Pattern.compile(output).matcher("var worksheet = (.*)\\};");
如何在 PHPExcel (1.7.7) 中删除一行或多行以使 getHighestDataRow 值递减? removeRow() 的使用似乎并没有真正调整 getHighestDataRow 值。
使用 C# 编写一个方法,从工作簿中取出单个工作表并将其另存为 HTML。 我正在使用 MSDN 中描述的 Worksheet.SaveAs 方法. 但是,当我查看输出时,它已经消失并保存了工作簿中的
我有一个名为 Sheet1 的选项卡。它从名为 Data_Summary 的选项卡中过滤数据. 如果我在 Sheet1 的单元格 A2 中输入此 FILTER() 函数,然后按回车键: =FILTER
我正在尝试使用 xlsxwriter 将格式写入一系列单元格。 worksheet.write_blank('A4:B4',None,cell_formatwhite) 此 write_blank 方
函数之间有什么区别:Worksheet_BeforeDoubleClickWorkbook_SheetBeforeDoubleClick? 最佳答案 Worksheet_BeforeDoubleCli
我想知道您能否帮我弄清楚为什么 worksheet.activate 在下面的情况下什么都不做。我关掉 .ScreenUpdating = False .EnableEvents = False .D
在 Intellij Scala Worksheet 支持中,运行类型(即 PLAIN 与 REPL)之间有什么区别? 最佳答案 Plain 评估模型在评估表达式之前一次性编译整个工作表,而 REPL
如果我在 VBA 编辑器中编写此内容: Dim ws As Worksheet: set ws = ActiveSheet ws.Columns( IntelliSense 向我显示了一个看似不相关的
我是一名优秀的程序员,十分优秀!