vb.net连接文件服务器

最新推荐文章于 2021-08-09 20:56:32 发布

LC—Dream

最新推荐文章于 2021-08-09 20:56:32 发布

阅读量705

点赞数

分类专栏： vb.net

本文链接：https://blog.csdn.net/LC_cat/article/details/86157034

版权

vb.net 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

新建IP快捷方式\192.168.1.123, 设置电脑中某个文件为共享文件
`
共享文件中添加Excel

            xlAppExcelFile.ActiveWorkbook.SaveAs("\\192.168.1.123\QinFengShare\" & Label3.Text & "+" & Label6.Text & " .xlsx") '向共享文件中添加Excel
            xlBook.Close(True) '关闭工作簿
            xlAppExcelFile.Quit() '结束EXCEL对象
            xlAppExcelFile = Nothing '释放xlApp对象

打开Excel

Dim xlAppExcelFile As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim strFileName As String
        With OpenFileDialog1
             .FileName = "\\192.168.1.123\QinFengShare\"
            .ShowDialog()
            strFileName = .FileName
        End With
        ' System.Windows.Forms.Application.StartupPath & "\" & "ce.xlsx"
        '''''''''''''''''''''''''''''''''''''''''''''''''''''操作Excel文件'''''''''''''''''''''''''''''''''''''''''''''''''''
        xlApp = CreateObject("Excel.Application") '创建EXCEL对象  
        xlBook = xlApp.Workbooks.Open(strFileName) '打开已经存在的EXCEL工件簿文件 
        xlApp.Visible = False '设置EXCEL对象可见（或不可见）
        xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表  
        For ii = 1 To 20 Step 1
            DataGridView2.Item(0, ii).Value = xlSheet.Cells(ii + 7, 1).value
            DataGridView2.Item(1, ii).Value = xlSheet.Cells(ii + 7, 2).value
            DataGridView2.Item(2, ii).Value = xlSheet.Cells(ii + 7, 3).value
            DataGridView2.Item(3, ii).Value = xlSheet.Cells(ii + 7, 4).value
        Next
        'DataGridView1.Item(intXlCol - 1, intXlsl - 1).Value = xlSheet.Cells(intXlsl, intXlCol).value
        xlBook.Close(True) '关闭工作簿
        xlApp.Quit() '结束EXCEL对象  
        xlApp = Nothing '释放xlApp对象

提示无法访问excel.xls 该文件可能已损坏,或者文件所在的服务器没有响应,或者该文件是只读的。

在Excel选择文件-》选项-》信任中心-》信任中心设置-》都不打对号-》确定
`