保存/加载用户首选项配置文件

Question

我想将保存/打开功能添加到我编写的一个小 Excel 程序中。要使用该程序，用户必须在几张纸上填写数据并调整设置。我想把它保存到一个配置文件中，以便以后能够加载它。

我应该如何构建这个 SAVE/OPEN 功能？

我的想法是通过简单的“链接”（例如=Sheet1!A1）将输入的数据和配置组合在一张纸上（我们将其命名为Entries）。此工作表将被导出。

我以这种方式将条目保存到新的 .xls 工作簿中：

ActiveWorkbook.Sheets("Entries").Columns("A:B").copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 'Paste only values

但是在加载数据时遇到了挑战......

网上有几个例子（参见here 和there）说明了如何做，但总是遇到同样的问题。也就是说：如果我只是将数据从保存的工作簿（仅限值）复制到Entries 工作表，我所有的“链接”都将被删除。有没有办法同步数据？

或者是在 VBA 中手动输入所有单元格值并复制数百个范围的唯一解决方案，从导出的工作簿直接复制到用户使用的单元格？

Answer 1

这是找到的解决方案。非常感谢您的帮助！

正在保存条目...

Set CurSheet = ActiveWorkbook.Sheets("Entries")
    maxEntries = 150
    CurSheet.copy 'a new workbook is created

    Set wbDest = ActiveWorkbook
    wbDest.Sheets(1).Range("A1:B" & maxEntries).Value = CurSheet.Range("A1:B" & maxEntries).Value
    wbDest.Sheets(1).Range("C1:C" & maxEntries).Value = CurSheet.Range("B1:B" & maxEntries).Formula

    For i = 1 To maxEntries

        'Removes the leading "=" from the formula
        tempCell = ActiveWorkbook.Sheets(1).Range("C" & i).Formula
        If Len(tempCell) > 1 Then
            wbDest.Sheets(1).Range("C" & i).Value = Right(tempCell, Len(tempCell) - 1)
        End If

        'For empty cells
        If wbDest.Sheets(1).Range("B" & i).Value = 0 Then
            wbDest.Sheets(1).Range("B" & i).Value = ""
        End If

    Next i

...并加载它们。

fullFileName = Application.GetOpenFilename("Excel files (*.xls),*.xls", _
        1, "Projekt öffnen", , False)

    Workbooks.Open fullFileName
    Set wbSaved = ActiveWorkbook      

    'Data copy
    maxEntries = 150

    For i = 4 To maxEntries

        If Not wbSaved.Sheets(1).Range("C" & i) = "" Then 'Skip the empty lines

            'Parsing
            c = wbSaved.Sheets(1).Range("C" & i).Value
            l = Len(c)
            p = InStr(1, c, "!", vbTextCompare) 'position of the !, that separates the sheet name from the cell number
            cDestSheet = Mid(c, 1, p - 1)
            cDestCell = Mid(c, p + 1, -(p - l))

            'Copy
            wbMain.Sheets(cDestSheet).Range(cDestCell).Value = wbSaved.Sheets(1).Range("B" & i).Value
        End If
    Next i

    wbSaved.Close False

Answer 2

我的想法可能还不是一个完整的答案，但如果这听起来不错，我会详细说明一些......使用你的例子：

ActiveWorkbook.Sheets("Entries").Columns("A:B").copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 'Paste only values

我会改成这个（不完整且未经测试的代码，但你应该明白）：

Dim CurSheet As WorkSheet

Set CurSheet = ActiveWorkbook.Sheets("Entries")

With Workbooks.Add
    Sheets(1).Range("A:B").value = CurSheet.Range("A:B").value
    Sheets(2).Range("A:B").value = "'" & CurSheet.Range("A:B").formula
End With

我在这里所做的是获取您已有的值并将它们插入新工作簿的第一张表（请参阅With 块中的第一行），然后还获取公式的文本值并将其放入它进入第二张纸，相同的位置（见第二行）。通过这种方式，您可以保留这些值并查看它们的来源。然而，这并没有像您要求的那样真正同步，因为您仍然需要操作新书第 2 页中的数据才能对这些链接做任何有意义的事情。

这是否有助于/让您朝着正确的方向开始？