Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
1.1k views
in Technique[技术] by (71.8m points)

excel - How to Open workbook?

I have this macro that used to work nicely for a while.
I replaced seemingly irrelevant function Insert Picture for Add Shape Picture in different Sub and all sudden. It stopped working with error 1004 on line 3.

Can you advise what I have wrong there, please?

Public Sub CopyData()
  ThisWorkbook.Worksheets(2).Range("C:Z").Clear

  Workbooks.Open Filename:=ThisWorkbook.Path & "Book1.xlsx"

  Workbooks("Book1.xlsx").Worksheets(1).Range("A1:Z200").Copy

  ThisWorkbook.Worksheets(2).Range("C1").PasteSpecial

  Application.CutCopyMode = False

  Workbooks("Book1.xlsx").Close SaveChanges:=False

  ActiveWorkbook.Sheets(1).Activate
End Sub

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

The targeted sheet for Paste function was protected (locked). It works now.


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...