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
VBA語句 一、VBA語句 1.宏程序語句 運行後可 以完成一個功能。 `//給單元格a1賦值 Sub test() //開始語句 Range("a1") = 10 //程序主體 End Sub
一、判斷語句 1. iF判斷 //單條件判斷 Sub 判斷1() If Range("a1").Value > 0 Then Range("b1") = "A1的值是正數" Else R