Sub gongzuobu()
Dim my_path As String
Dim wb As Workbook
Dim num As Integer
Set wb = Workbooks("工作簿1.xltm") '建立工作簿物件

Set wb = Workbooks(1)
Set wb = ActiveWorkbook
Set wb = ThisWorkbook
'MsgBox wb.Name

'Workbooks.Add  '新建工作簿
'
'ActiveWorkbook.SaveAs "C:\Users\queqiaoshui\Desktop\haha.xlsx"  '儲存工作簿
'my_path = wb.Path  '獲取當前工作簿檔案目錄
'MsgBox my_path
num = Application.WorksheetFunction(2, 9) '利用工作表函式取隨機數

MsgBox num
End Sub