Excel VBA 拒绝激活表

Question

尝试将数据从一个工作簿复制到下一个工作簿，但每当我尝试 select 工作表时，我都会收到一条消息，说 Select 范围方法 Class 失败

我需要使用 select 因为我需要复制粘贴特殊的东西（试图保持格式）

但它不会让我 select 工作表，我不知道为什么

Public Sub Worksheet_Export()

'Setting Dimensions for Current Workbook and New workbook 

Dim current_workbook As Workbook
Dim New_workbook As Workbook

Dim current_worksheet As Worksheet
Dim New_worksheet As Worksheet

Set current_workbook = ThisWorkbook
Set New_workbook = Workbooks.Add

Set current_worksheet = current_workbook.Sheets(2)
Set New_worksheet = New_workbook.Sheets(1)

'Copying Data From Current Workbook to CSV File Workbook

current_worksheet.Range("A:C").Select

结束子

Answer 1

您需要在选择范围之前激活工作表

更好的解决方案：

current_worksheet.Range("A:C").Copy Destination:=New_worksheet.Range("A1")

Public Sub Worksheet_Export()

'Setting Dimensions for Current Workbook and New workbook

Dim current_workbook As Workbook
Dim New_workbook As Workbook

Dim current_worksheet As Worksheet
Dim New_worksheet As Worksheet

Set current_workbook = ThisWorkbook
Set New_workbook = Workbooks.Add

Set current_worksheet = current_workbook.Sheets(2)
Set New_worksheet = New_workbook.Sheets(1)




'Copying Data From Current Workbook to CSV File Workbook
current_worksheet.Activate 'you need to activate before selecting
current_worksheet.Range("A:C").Select



'better solution:
current_worksheet.Range("A:C").Copy Destination:=New_worksheet.Range("A1")

End Sub