2

VBA問題(從多個檔案抓取資料貼到單一檔案的不同sheet中)

misser

misser
個人積分：395分
文章編號：79108194

395分

11樓

2020-09-17 21:14

meu00 wrote:
ThisWorkbook.Sheets(xls_fullpath.Name).Range("A1:I90").Select

建議在這句前面。加上：
ThisWorkbook.Activate
應該就可以成功select (因為前一步視窗的作用目標是另一個檔案，您應該先把作用視窗移回thisworkbook，再下thisworkbook的工作表select指令)

不過，再後面一步，應該還會發生錯誤的。
(不知道您是否注意到，在更早的一步：)

meu00 wrote:
pop.Sheets(2).Range("A7:I96").Copy Destination:=ThisWorkbook.Sheets(xls_fullpath.Name).Range("A1:I90")

(已經幫您把資料貼好了。)

您試試，看是否真的後續有問題，有的話，您回到那一句，把Copy後面的刪掉，再執行看看？
從：pop.Sheets(2).Range("A7:I96").Copy Destination:=ThisWorkbook.Sheets(xls_fullpath.Name).Range("A1:I90")
變成：
pop.Sheets(2).Range("A7:I96").Copy

結果再回報一下？

Der，misser1

snare

snare
個人積分：3056分
文章編號：79110449

3056分

12樓

2020-09-18 2:55

meu00 wrote:
因為希望貼上的資料格式型態為"值"

6樓
pop.Sheets("工作表1").Range("a1:a3").Copy ThisWorkbook.Sheets("_" & xls_fullpath.Name & "_").Range("a1:a3")

change to

ThisWorkbook.Sheets("_" & xls_fullpath.Name & "_").Range("a1:a3").Value = pop.Sheets("工作表1").Range("a1:a3").Value

2