VB打开并读取WORD,EXCEL文件的方法,急...

Question

1.shell "C:\123.doc"
2.引用相应的Application对象

Answer 1

shell已试过，出错，无效的过程调用或参数；
你有没有相应的Application对象的例子

Answer 2

Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

Answer 3

1.怎么出错，没装word？
Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)   ' 完成Calculator。
2.以Execl为例Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim xlActiveSheet As Excel.WorksheetSet xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(VBA.Trim(lblPath.Caption))
Set xlWorksheet = xlBook.Worksheets(strSheetName)
Set xlActiveSheet = xlApp.ActiveSheet
    
For i = 1 To 9
   strFieldName(i) = VBA.Trim(xlBook.Worksheets(strSheetName).Range(strTemp(i)).Value)
Next i
    
lblTotal.Caption = xlActiveSheet.UsedRange.Rows.count - 1
    
xlBook.Close
Set xlBook = Nothing
Set xlApp = Nothing
Set xlWorksheet = Nothing
Set xlActiveSheet = Nothing

Answer 4

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim xlActiveSheet As Excel.WorksheetSet xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(VBA.Trim(lblPath.Caption))
Set xlWorksheet = xlBook.Worksheets(strSheetName)
Set xlActiveSheet = xlApp.ActiveSheet
    
For i = 1 To 9
   strFieldName(i) = VBA.Trim(xlBook.Worksheets(strSheetName).Range(strTemp(i)).Value)
Next i
    
lblTotal.Caption = xlActiveSheet.UsedRange.Rows.count - 1
    
xlBook.Close
Set xlBook = Nothing
Set xlApp = Nothing
Set xlWorksheet = Nothing
Set xlActiveSheet = Nothing

Answer 5

如果需要显示Word窗口Set MyApp = CreateObject("Word.Application")
    MyApp.Visible = true

Answer 6

1.ShellExecute 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
rc = ShellExecute(0, "open", strPath, "", strPathName, 1)

Answer 7

up
还有
可以建立application(word或excel)对象，然后用他去打开
第二个问题
可以用剪贴板对象Clipboard