Question

这是我的方案，我有一个包含所有excel文件的路径。现在，我想实现一个解决方案，将当前“文件名”插入该文件的特定单元格中。

例如：

=MID(CELL("filename",A1),SEARCH("[",CELL("filename",A1))+1,SEARCH(".",CELL("filename",A1))-1-SEARCH("[",CELL("filename",A1)))

在sample.xls中，我想插入文件名“sample”而没有单元格“E7”和“E8”上的扩展名，然后保存此文件。

我目前有这个公式来获取没有扩展名的文件名：

<button type="button" onclick="ETArequest(this) " id="d1stop" class="list-group-item" style="text-align:center; height:30px; font-size:15px;"></button>

Answer 1

以下是一些可能对您有所帮助的代码：

对于工作簿中的最后一行：

LastRow = ActiveWorkbook.ActiveSheet.Cells(ActiveWorkbook.ActiveSheet.Rows.Count, "a").End(xlUp).Row

ActiveWorkbook可以替换为＆＃34;工作簿（NameofWorkbook）＆＃34;。

ActiveWorksheet可以替换为＆＃34;表格（NameofSheet）＆＃34;。

用于将excel文件的路径添加到a：

列

Sub LoopThroughFiles()
    Dim MyObj As Object, MySource As Object, file As Variant
    file = Dir("c:\testfolder\")

    While (file <> "")
       ActiveWorkbook.ActiveWorksheet.Cells((LastRow+1), 1).Value = file
    Wend
    file = Dir
End Sub

不太确定这是否有效，您必须对其进行测试。

**** **** EDIT_1

对于文件扩展名，以下内容可能有用（在另一个问题上找到）：

FileExtStr = "." & LCase(Right(wb.Name, Len(wb.Name) - InStrRev(wb.Name, ".", , 1)))

wb.name以后可以被保存路径的单元格替换（通过WB.WS.Cells（x，y）.Value）

如何使用VBA在Excel文档中添加特定单元格

1 个答案: