标签: excel-2010

使用VBA循环文件夹中的文件?

我想在Excel 2010中使用循环遍历目录的文件.

在循环中,我将需要

  • 文件名,和
  • 文件格式化的日期.

我编写了以下代码,如果该文件夹没有超过50个文件,则工作正常,否则它是非常慢的(我需要它与> 10000文件的文件夹一起使用).这段代码唯一的问题是查找操作file.name需要花费很多时间.

代码有效,但waaaaaay太慢(每100个文件15秒):


Sub LoopThroughFiles()
   Dim MyObj As Object, MySource As Object, file As Variant
   Set MySource = MyObj.GetFolder("c:\testfolder\")
   For Each file In MySource.Files
      If InStr(file.name, "test") > 0 Then
         MsgBox "found"
         Exit Sub
      End If
   Next file
End Sub
Run Code Online (Sandbox Code Playgroud)

问题解决了:

  1. 我的问题已通过以下解决方案Dir以特定方式(15000个文件为20秒)和使用该命令检查时间戳来解决FileDateTime.
  2. 考虑到下面的另一个答案,20秒减少到不到1秒.

excel vba excel-2010

224
推荐指数
5
解决办法
60万
查看次数

将图片插入Excel单元格

我想要生成带图片的报告,但我无法将图片放入单个单元格中.我可以让图片"漂浮"在我的工作表周围,但我需要将它们放入一个单元格中.我怎样才能做到这一点?

excel excel-2010

138
推荐指数
4
解决办法
66万
查看次数

删除整列数据中的前导或尾随空格

如何删除整列中所有单元格的前导或尾随空格?

工作表的常规Find and Replace(又称Ctrl+ H)对话框无法解决问题.

excel excel-formula excel-2010

124
推荐指数
4
解决办法
93万
查看次数

同时冻结第1行和第A列

我想在Excel 2010中同时"冻结"第1行和第A列.

这可能吗?

excel excel-2010

115
推荐指数
1
解决办法
27万
查看次数

IF语句:如果条件为假,如何将单元格留空(""不起作用)

我想写一个IF语句,如果条件为FALSE,则单元格保留为空.请注意,如果在C1中输入以下公式(条件为假),例如:

 =IF(A1=1,B1,"")
Run Code Online (Sandbox Code Playgroud)

如果测试C1为空白或未使用,则即使C1似乎为空白=ISBLANK(C1),也会返回FALSE.这意味着=IF(A1=1,B1,"")如果不满足条件,则公式在技术上不会将单元格留空.

有关实现这一目标的方法的任何想法?谢谢,

excel if-statement worksheet-function excel-2010

112
推荐指数
3
解决办法
109万
查看次数

Excel 2010中的"表单控件"和"ActiveX控件"有什么区别?

使用Microsoft Excel 2010,我注意到可以插入到文档中的两种控件:表单控件ActiveX控件.

在此输入图像描述

他们之间有什么区别?

excel vba activex excel-2010 form-control

91
推荐指数
3
解决办法
21万
查看次数

条件格式化,基于整行

我搜索并阅读了与条件格式相关的答案,但我似乎无法让我的工作,所以也许我做错了.

我有一份工作表.它包含我们住所中的动物清单.我试图做的是将整行绿色(如果它们已被采用)(在"G"栏中用"X"表示).我已经=$G$2="X"=$G2="X",但都没有工作.它只会为我设置规则时处于活动状态的一行着色,而当我在另一行中输入"X"时,它什么都不做.我错过了什么?

conditional-formatting excel-2010

84
推荐指数
3
解决办法
32万
查看次数

忽略重复并在Excel中创建唯一值的新列表

我有一列值通常显示为重复.我需要创建一个基于第一列的唯一值的新列,如下所示:

Column A   Column B  
a          a
a          b
b          c
c
c
Run Code Online (Sandbox Code Playgroud)

这个B列实际上需要出现在同一工作簿中的不同工作表上,所以我认为它需要使用sheet2!A1样式格式.

我没有运气数据/过滤器菜单选项,因为这似乎只适用于命令.每当在A列中输入新值时,我都需要B列自动更新.

excel excel-formula excel-2010

74
推荐指数
5
解决办法
46万
查看次数

Excel:令人难以置信的缩小和扩展控件

偶尔,我会遇到一个电子表格,它会受到魔法按钮或列表框的影响,随着时间的推移会变大或变小.

代码中没有任何内容可以指示这一点.

还有其他人经历过这种快乐吗?

excel vba excel-2007 excel-2003 excel-2010

59
推荐指数
4
解决办法
11万
查看次数

如何使用自动覆盖的workbook.saveas

在这部分代码中,Excel总是提示:"文件已存在,您要覆盖吗?"

Application.DisplayAlerts = False
Set xls = CreateObject("Excel.Application")
Set wb = xls.Workbooks.Add
fullFilePath = importFolderPath & "\" & "A.xlsx"

wb.SaveAs fullFilePath, AccessMode:=xlExclusive, ConflictResolution:=True   

wb.Close(True)
Run Code Online (Sandbox Code Playgroud)

db.SaveAs如果有的话,为什么总是提示我覆盖现有文件DisplayAlerts = False

提前致谢!

excel vba excel-vba excel-2010

56
推荐指数
3
解决办法
22万
查看次数