Question

只是我提出了一些代码，它将我的Excel工作表中的网页复制粘贴成文本格式。

需要进行少量修改。添加修改需要循环遍历代码，以便它访问Excel中的输入（在附件 - 输入表中）并对URL进行更改（我在URL中注意到只需要更改最后一个单词，这将从excel文件列中获取1等等，直到找到空白）。

因为，它的循环正确，但没有数据粘贴的循环，而是将所有循环数据转储到一个单元格。

我对此宏的基本要求是访问A列的链接，并将其数据粘贴到B列。

＆＃13;

require_once 'PHPExcel/IOFactory.php';

$inputFileType = 'Excel5'; 
$inputFileName = './data/myExcelData.xls'; 
$sheetname = 'Sheet1'; 

/**  Create a new Reader of the type defined in $inputFileType  **/ 
$objReader = PHPExcel_IOFactory::createReader($inputFileType); 
/**  Advise the Reader of which WorkSheets we want to load  **/ 
$objReader->setLoadSheetsOnly($sheetname); 
/**  Load $inputFileName to a PHPExcel Object  **/ 
$objPHPExcel = $objReader->load($inputFileName); 


$myDataArray = $objPHPExcel->getActiveSheet()->rangeToArray('A1:K31' ,NULL, FALSE, TRUE, false);

＆＃13;

Answer 1

假设链接位于单元格A1，A2，A3等中，并且网站中的数据应该出现在单元格B1，B2，B3等中，请更改：

Sheets("Sheet1").Range("B1").Value = .document.body.innerText

为：

Sheets("Sheet1").Range("B" & URL.Row).Value = .document.body.innerText

抓取网页数据修改

1 个答案: