使用FSO根据满足的条件将文件夹名称插入到单元格中 [英] Using FSO to insert folder name into cell based on criteria being met

问题描述

fsofol.name = test1 （这是正确的）

我正在尝试确定每个单元格是否在列A中有任何数据，如果是，将文件夹的名称放在偏移量单元我已经列出。我希望我很亲近，但如果有人能够提出建议，我将不胜感激。谢谢！

我在下面的问题行中添加了一个注释

  Dim fsoFol As Object 
 
如果fileName像V * .xls那么
 wbkCS.Worksheets（Cut Sheet）。范围（S4：S2000）。复制
使用wbkVer.Worksheets（Cutsheets）
设置firstRange = .Range（A& .Rows.Count）.End（xlUp）.Offset（1，0）
 firstRange.PasteSpecial xlPasteValues 
如果firstRange.Value像*然后
 fsoFol.Name.Copy **'错误在这里并声明对象需要** 
 firstRange.Offset（0，5）.PasteSpecial xlPasteValues 
结束如果
结束
  

解决方案

更改

  fsoFol.Name.Copy **'错误在这里并声明对象需要** 
 firstRange.Offset（0 ，5）.PasteSpecial xlPasteValues 
  

to

  firstRange.Offset（0，5）.Value = fsoFol.Name 
  

I'm having trouble putting the syntax together for this and I just started working with FSO in VBA, so please bear with me.

fsofol.name = test1 (this is correct)

I'm trying to determine if each cell has any data in column "A" and if so, put the name of the folder in the offset cell I have listed. I'm hoping I'm close, but if anyone can help with a suggestion I would be grateful. Thanks!

I put a note in the problem line below

    Dim fsoFol As Object  

    If fileName Like "V*.xls" Then
         wbkCS.Worksheets("Cut Sheet").Range("S4:S2000").Copy
              With wbkVer.Worksheets("Cutsheets")
              Set firstRange = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) 
    firstRange.PasteSpecial xlPasteValues
    If firstRange.Value Like "*" Then
         fsoFol.Name.Copy **'error is here and states object required**
         firstRange.Offset(0, 5).PasteSpecial xlPasteValues
    End If
              End With

解决方案

Change

 fsoFol.Name.Copy **'error is here and states object required**
 firstRange.Offset(0, 5).PasteSpecial xlPasteValues

to

 firstRange.Offset(0, 5).Value = fsoFol.Name

这篇关于使用FSO根据满足的条件将文件夹名称插入到单元格中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！