文件名称:VBA_300.txt
文件大小:39KB
文件格式:TXT
更新时间:2012-12-10 05:49:21
VBA
VBA_300句 Option Explicit GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto: Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.WorkSheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1)