如何使用VBA在Excel文檔中添加特定單元格

Question

這是我的情況，我有一個包含所有Excel文件的路徑。 現在，我想實現一個解決方案，將當前的“文件名”插入該文件的特定單元格中。

例如：

sample.xls
Sample2.xls
Sample3.xls

在該sample.xls中，我要插入文件名“ sample”，但在單元格“ E7”和“ E8”上不具有擴展名，然后保存該文件。

我目前有這個公式來獲取不帶擴展名的文件名：

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

Answer 1

以下是一些可能對您有所幫助的代碼：

對於工作簿的最后一行：

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

ActiveWorkbook可以替換為“ Workbooks（NameofWorkbook）”。

ActiveWorksheet可以替換為“ Sheets（NameofSheet）”。

要將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

不太確定是否可行，您必須對其進行測試。

****編輯_1 ****

對於文件擴展名，以下內容可能有用（在另一個問題上找到）：

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

wb.name以后可以用保存路徑的單元格替換（通過WB.WS.Cells（x，y）.Value）