0

好的，所以我正在尝试创建一个宏，它将获取我设置的单元格并将它们插入到 html 代码中......

我所拥有的是带有我的 html 代码的单元格和带有我需要的值的单元格......首先它是参考。第一个 html J2 并将其放在 B13 旁边的参考。我需要的值并将其放在 C13 中，依此类推...它得到一个基于日期的文件名，所以假设日期是 2012 年 6 月 20 日，它将采用该值并将下一个单元格格式化为拉该日期，但将文本格式化为 20120620.mp3... 当参考。代码采用该单元格，它采用格式...但是当我运行另一个脚本将所有单元格连接在一起时，它会将日期更改为 2012 年 6 月 20 日的原始格式...我想也许它会拉动原始格式但我更改了第一个日期单元格的原始格式，它仍然保持 2012 年 6 月 20 日的格式。

<div id="messageDate">6/20/2012</div><audio id="audio" preload="none" controls="controls"><source src="sermons_mp3/mp3/6/20/2012" type="audio/mpeg"></audio>

它应该看起来像这样

<div id="messageDate">6/20/2012</div><audio id="audio" preload="none" controls="controls"><source src="sermons_mp3/mp3/20120620.mp3" type="audio/mpeg"></audio>

我使用此代码来组合单元格

   Sub JoinText()
myCol = Selection.Columns.Count
For i = 1 To myCol
ActiveCell = ActiveCell.Offset(0, 0) & ActiveCell.Offset(0, i)
ActiveCell.Offset(0, i) = ""
Next i
End Sub

我也试过这个

     Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
        Dim finalValue As String

        Dim cell As Excel.Range

        For Each cell In sourceRange.Cells
            finalValue = finalValue + CStr(cell.Value)
        Next cell

        ConcatinateAllCellValuesInRange = finalValue
    End Function
    Sub MyMacro()
        Range("b14").Select
        ActiveCe

ll.FormulaR1C1 = ConcatinateAllCellValuesInRange([b13:r13])
End Sub

并且所有结果都相同...我希望这会有所帮助，有人可以在这方面给我一些帮助...我是VBA的新手，不知道我在做什么...我所做的只是我在玩并获得幸运...大声笑

谢谢

4

1 回答 1

0

如果您从仅包含日期的单元格中连接日期（例如6/20/2012，与 相对sermons_mp3/mp3/6/20/2012），则可以使用以下公式获取 src 参数：

="sermons_mp3/mp3/" & text(date_value, "yyyymmdd") & ".mp3"
于 2012-06-21T16:40:15.480 回答