Excel VBA:VBA代码未拾取CSV文件中的数据

我目前的代码如下：

LastRow = WB.Sheets(1).UsedRange.Rows.Count  
'...
For irow = 6 To LastRow
            WordFile.Tables(1).Cell(irow, 7).Range.Text = WB.Sheets(1).Cells(irow, 22)   
Next

---

我的CSV文件在其指定的列中打开，因此我不需要分离数据。但是，我的代码似乎没有读取CSV文件中的任何数据。不管我使用什么方法，Lastrow的值始终为1（有10行数据）。当代码在没有错误的情况下运行时，“我的word”表中的单元格仍然为空。请帮忙

你确定你正在打开你认为正在打开的文件吗？不确定你的意思是什么？我在excel中打开了csv文件，并从中运行vba代码。这将打开word文件以将csv数据移动到其中。如果返回1，则可能调用了错误的工作簿。什么是WB？您是否尝试使用

LastRow=ThisWorkbook.Sheets（1）.UsedRange.Rows.Count

？只有1个WB打开，是的，我尝试了此工作簿。我认为这就是问题所在，所以我将WB设置为该工作簿。