返回列表 上一主題 發帖

[發問] 請問Call 指令的資料互用

回復 2# cji3cj6xu6
  1. Option Explicit
  2. Sub SubA()
  3.     Dim FileName1 As String, SheetNumber As Integer
  4.     FileName1 = "X1.xlsm"
  5.     SheetNumber = 5
  6. SubB FileName1, SheetNumber
  7. End Sub
  8. Sub SubB(參數1 As String, 參數2 As Integer)
  9.     Windows(參數1).Activate
  10.     Sheets(參數2).Select
  11. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 人生沒有所有權,只有生命的使用權。
返回列表 上一主題