如何用vba将excel单元格内容复制到字符串

Question

我想使用 vba 代码将 Excel 工作表另存为文件。我已经实现了。

    Sheets("html").Select
      
    Dim Path As String
    Dim FileNumber As Integer
    Dim k As Integer
    Path = "C:\BridgeResultsTranslator\session date.html"
   
         FileNumber = FreeFile
   Open Path For Output As FileNumber
        For k = 1 To 1770
    Print #FileNumber, Cells(k, 1)
       Next k
   Close FileNumber

明天工作表信息将更改，我想将其保存为具有不同名称的文件，即将存储在指定单元格中的日期。

为了测试成功的代码，我将上面的内容更改为；

    Sheets("html").Select
      
  'rem xx = the contents of a cell (A18) containing a date

    Dim xx As String
    Dim Path As String
    Dim FileNumber As Integer
    Dim k As Integer
    Path = "C:\BridgeResultsTranslator\test "

    xx = cell(A18)

    Path = Path + xx + ".html"
         FileNumber = FreeFile
   Open Path For Output As FileNumber
        For k = 1 To 1770
    Print #FileNumber, Cells(k, 1)
       Next k
   Close FileNumber

这当然行不通。我确信有简单的代码可以将单元格中的文本复制到字符串 xx 中，但我没有找到它。有什么帮助吗？

Answer 1

这有效... ' 将翻译发布到（日期）html

 Sheets("html").Select

'rem str = 包含日期引用的单元格 A18 的内容 昏暗的海峡 将路径变暗为字符串 将文件编号变暗为整数 将 k 调暗为整数 路径=“C:\BridgeResultsTranslator\Session” str = (范围("A18")) 路径=路径+str+“.html” 文件编号 = 空闲文件 打开输出路径作为文件编号 对于 k = 1 至 1770 打印#FileNumber，单元格(k, 1) 下一个 k 关闭文件编号

当我尝试 xx = (Range("A18")) 时，它不起作用，但这样一切都很好......