跪求大神指点：如何在单元格内加上Excel文件名

yusanli

lsc900707 发表于 2018-1-22 13:05
自行测试结果是否正确：

提示运行错误

lsc900707

yusanli 发表于 2018-1-22 13:24
提示运行错误

Sub gj23w98()
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*xls")
    Do While f <> ""
       If f <> ThisWorkbook.Name Then
           Set wb = Workbooks.Open(p & f)
           With wb.Sheets(1)
               r = .Cells(.Rows.Count, 1).End(3).Row
               s = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
               .Cells(1, s).Value = "村组"
               .Range(.Cells(2, s), .Cells(r, s)).Value = Split(f, ".")(0)
           End With
           wb.Save
           wb.Close True
       End If
       f = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

yusanli

lsc900707 发表于 2018-1-22 14:14
Sub gj23w98()
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\"

非常感谢大神，完美解决了我的问题，赞赞赞！！！

xj1213

好好研究研究

wmqz.130

yusanli 发表于 2018-1-22 12:55
报什么价格，这里只有学习，没有交易，人品真低！

总有人打着学习的旗号，让人免费替他工作，学习是要提出具体那句的语言或代码不明白。你这个明显是带着你的工作来的。。。
PS：免费给你解决问题，人品就高？付费了人品就低？

yusanli

wmqz.130 发表于 2018-1-22 20:35
总有人打着学习的旗号，让人免费替他工作，学习是要提出具体那句的语言或代码不明白。你这个明显是带着你 ...

带什么工作？我学医的，做哪种工作，搞笑是吧？这是个探讨和学习的平台，别用商人的交易玷污了这个平台。