vb.net连接文件服务器

新建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选择文件-》选项-》信任中心-》信任中心设置-》都不打对号-》确定
`

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值