Sub Import01()
    file_name0 = ActiveWorkbook.Name
    Application.Run "Import_H", file_name0
End Sub

Sub Import_H(file_name0 As String)
MsgBox (file_name0)

   Windows(file_name0).Activate

End Sub
arrow
arrow
    全站熱搜

    Chang 仁 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄