VBA_300.txt

VBA_300句OptionExplicitGetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimxlSheetAsExcel.WorkSheetSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.Worksheets(1)