在参考资料中读取和写入Excel文件

debugcn 发表于 Dev

安东尼·考克斯

我已经将我的excel文件作为资源添加到我的vb项目中，并使用了“嵌入式资源”选项。文件“ StoredInformation.xlsx”的名称。“构建操作”设置为“嵌入式资源”。

编辑II-但是我再次陷入困境。当我运行程序时，似乎我的代码甚至无法正常工作

Dim sPath As String

    sPath = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))

    For i = 1 To 50
        Threading.Thread.Sleep(100)
        Application.DoEvents()

    Next

    If My.Computer.FileSystem.FileExists(sPath & "\Housing\Stored Information.xlsx") Then
        Dim APP As New Excel.Application
        workbook = APP.Workbooks.Open(sPath & "\Housing\Stored Information.xlsx")
        worksheet = workbook.Worksheets("Sheet1")
        APP.Visible = False
        MessageBox.Show("File Opened!" & Environment.NewLine & "Path: " & sPath & "\Housing\Stored Information.xlsx")
    Else
        My.Computer.FileSystem.WriteAllBytes(sPath & "\Housing\Stored Information.xlsx", My.Resources.StoredInformation, True)
        Dim APP As New Excel.Application
        workbook = APP.Workbooks.Open(sPath & "\Housing\Stored Information.xlsx")
        worksheet = workbook.Worksheets("Sheet1")
        APP.Visible = False
        MessageBox.Show("File Created!" & Environment.NewLine & "Path: " & sPath & "\Housing\Stored Information.xlsx")
    End If

它没有创建我的文件夹“ Housing”或我的文件“ Stored Information.xlsx”，请问有人可以告诉我我做错了什么吗？

编辑-由于保护级别，我发现它无法创建新目录，因此当我将目标更改为桌面时，它创建了excel文件，但需要修复。

有人可以告诉我如何创建新文件夹并添加文件而不损坏excel文件吗？

编辑-更改了代码，它仍然没有在“我的文档”中创建新文件夹，而是添加了文件“ Stored Information.xlsx”

安东尼·考克斯

消除关于嵌入式资源的困惑-找到了这个线程

介绍如何嵌入用于程序的资源以及如何访问它。它绝对帮助了我

编辑：答案

Dim sPath As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "Housing")

    Dim Fpath As String = sPath & "\Stored Information.xlsx"

    IO.Directory.CreateDirectory(sPath) ' If location already exists it will not do anything

    If My.Computer.FileSystem.FileExists(Fpath) = False Then
       My.Computer.FileSystem.WriteAllBytes(Fpath, My.Resources.StoredInformation, True) ' Don't want to append data (although that would not happen in this instance) so True is used for that.
    End If

    Dim APP As New Excel.Application
    workbook = APP.Workbooks.Open(Fpath)
    worksheet = workbook.Worksheets("Sheet1")
    APP.Visible = False
    MessageBox.Show("File Opened!" & Environment.NewLine & "Path: " & Fpath)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。