VBnet 如何打开excel 文件，并自己输入excel 的密码。

#2

mrkkk2014-03-09 14:23

没人呢～～～

没人帮忙么～～～

#3

tlliqi2014-03-09 18:38

没弄过

#4

cnwangb2014-03-22 15:40

首先在  项目-添加引用- 添加上  Microsoft.Office.Interop.Excel

以下代码在VS VB2013 +OFFICE 2010通过：

Imports Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim sfile As String
        sfile = "z:\123.xlsx"

        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlApp.DisplayAlerts = False               'EXCEL运行中不显示对话框，直接运行
        xlBook = xlApp.Workbooks.Open(sfile, Password:=123456)  'excel打开密码为123456
        xlApp.Rows("1:1").RowHeight = 23.25          '设置第一行行高23.25
        xlApp.Cells(2, 1) = "你好，这是一个测试"
        xlApp.Range("A3:F3").Interior.ColorIndex = 37 ' 浅蓝色填充

        xlBook.Save()
        xlBook.Close()
        xlApp.Quit()
        MsgBox("ok!")
    End Sub
End Class

VBnet 如何打开excel 文件， 并自己输入excel 的密码。