小编Ana*_*dey的帖子

我有两张床单。一个具有完整的数据，另一个基于应用于第一张纸的过滤器。

数据表Data
名称： 过滤表名称：Hoky

为简单起见，我只取了一小部分数据。我的目标是根据过滤器从数据表中复制数据。我有一个宏，它以某种方式工作，但它是硬编码的，是一个录制的宏。

我的问题是：

1. 行数每次都不一样。（人工努力）
2. 列不按顺序。

Sub TESTTHIS()
'
' TESTTHIS Macro
'
'FILTER
Range("F2").Select
Selection.AutoFilter
ActiveSheet.Range("$B$2:$F$12").AutoFilter Field:=5, Criteria1:="hockey"

'Data Selection and Copy
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hockey").Select
Range("E3").Select
ActiveSheet.Paste

Sheets("Data").Select
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hockey").Select
Range("D3").Select
ActiveSheet.Paste

Sheets("Data").Select
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hockey").Select
Range("C3").Select
ActiveSheet.Paste

End Sub

我正在尝试将共同基金数据提取到 R 中，我的代码方式适用于单个表，但是当网页中有多个表时，它不起作用。

链接 - https://in.finance.yahoo.com/q/pm?s=115748.BO

我的代码

url <- "https://in.finance.yahoo.com/q/pm?s=115748.BO"
library(XML)
perftable <- readHTMLTable(url, header = T, which = 1, stringsAsFactors = F)

但我收到一条错误消息。

(function (classes, fdef, mtable) 中的错误：无法为签名 '"NULL"' 的函数 'readHTMLTable' 找到继承的方法另外：警告消息：XML 内容似乎不是 XML：' https:// in.finance.yahoo.com/q/pm?s=115748.BO '

我的问题是

1. 如何从此网页中拉出特定表格？
2. 如何从该网页中拉出所有表格？
3. 当有多个链接时，从每个网页中提取特定表格的简单方法是什么

Ahttps://in.finance.yahoo.com/q/pm?s=115748.BO

Ahttps://in.finance.yahoo.com/q/pm?s=115749.BO

Ahttps://in.finance.yahoo.com/q/pm?s=115750.BO

使用链接时，从链接中删除“A”。

我试图找到相关的问题但却找不到创建一个新的问题.我的程序根据简单的if条件在python中使用list comprehension创建一个新列表.

  Newone = [ temp for temp in Oldone if temp % 2 != 0 ]

它工作正常但在某些情况下它不起作用.例如这一个

 Oldone = [1]
 Newone = [ temp for temp in Oldone if temp % 2 != 0 ]

这返回[1],但我期待Newone成为[]