1.代码很简单,只要把文件路径写清楚就好了
Option Explicit
Sub 打开工作表()
Dim wb As Workbook
Set wb = Workbooks.Open("C:/Users/oyq/Desktop/作业/工作簿1.xlsx")
End Sub
2.其他的工作簿操作
Sub 其他作业()
Dim w As Workbook
'新建工作表
Set w = Workbooks.Add
' 保存为
w.SaveAs ""
End Sub
1.代码很简单,只要把文件路径写清楚就好了
Option Explicit
Sub 打开工作表()
Dim wb As Workbook
Set wb = Workbooks.Open("C:/Users/oyq/Desktop/作业/工作簿1.xlsx")
End Sub
2.其他的工作簿操作
Sub 其他作业()
Dim w As Workbook
'新建工作表
Set w = Workbooks.Add
' 保存为
w.SaveAs ""
End Sub