Cómo abrir Excel usando vbs.
Métodos comunes para abrir Excel en VBS
¿atenuar oExcel, oWb, oSheet?
¿Establecer oExcel= CreateObject("Excel.Application")?
¿Establecer oWb = oExcel.Workbooks.Open("E:\Others\New Installed Phone Sheet.xls")?
¿Establecer oSheet = oWb.Sheets("Hoja1")?
MsgBox oSheet.Range("B2").Value '#¿Extraer el contenido de la celda B2?
'.....?
Si es un XP sistema, puede utilizar el siguiente código:
Dim objFileDlg?
Set objFileDlg = CreateObject("UserAccounts.CommonDialog")?
objFileDlg.Filter = " ¿Archivo Excel (*.xls) | *.xls"?
Si objFileDlg.ShowOpen ¿entonces?
msgbox "El archivo que seleccionó es:" amp; objFileDlg.FileName amp; vbCrLf ?
¿Finalizar si?