Question

我无法将值从一个工作簿放到另一个工作簿中。

现在它可以正常工作，但正如您可能在下面的代码中看到的那样，它会在第二个工作簿之后不断打开一个工作簿，直到循环结束。所以我的问题是：如果不打开工作簿，我怎么能这样做呢？

代码：

$(".blog-post").each(function(){
var wrapper = $(this);
var video_url = wrapper.find("iframe").attr("src");
 var iframe_content = ('<iframe width="560" height="315" src="' + video_url + '" frameborder="0" allowfullscreen></iframe>');
 var video_div =  wrapper.find(".blog-image")
 video_div.each(function(){
          video_div.html(iframe_content);
 });

以下代码给出了一个错误：下标超出了For i = 2 To LastRow Set wb2 = Workbooks.Open("...") With Worksheets("...") x = .Cells(i, 2).Value y = .Cells(i, 3).Value End With If variable1 = variable2 Then Set wb = Workbooks.Open("...") With Worksheets("...") .Cells(i, 2).Value = x .Cells(i, 3).Value = y End With End If Next i

的范围

x = wb2.WorkSheets("...").Cells(i, 2).Value

Answer 1

这样怎么样，首先在循环外设置wb和wb2对象，然后直接在工作簿之间设置值。

Set wb2 = Workbooks.Open("...")
Set wb = Workbooks.Open("...")

For i = 2 To LastRow
    wb.Worksheets("...").Cells(i, 2).Value = wb2.Worksheets("...").Cells(i, 2).Value
    wb.Worksheets("...").Cells(i, 3).Value = wb2.Worksheets("...").Cells(i, 3).Value
Next i

VBA从工作簿中获取值并将它们放在另一个工作簿中

1 个答案: