删除目录及其内容（文件，子目录）而不使用FileSystemObject
我想知道是否可以重写这段代码： Private Sub PrepareDir（ByVal dir As String） Dim fso As New FileSystemObject 如果fso.FolderExists（dir）然后调用fso.DeleteFolder（dir，True） 调用fso.CreateFolder（dir） End Sub 使用VBA
..
Office
将.xfdf保存为.pdf
我目前正在使用Excel填写带有表单字段的PDF文件。它一切正常，但它将它作为.xfdf导出。有没有人知道如何将其保存为pdf？ FullFileName = FilePath& “申请 - ”&修剪（MyRecord.CompanyName）& “ - ”& _ 年份& “ - ”&月& “ - ”&日& “ - ”&小时“ - ”&分钟& “ - ”&秒和“.xfdf” 打开Full
..
使用VBA删除副本 - Excel 2003
我想知道是否有人知道可以摆脱重复的任何VBA代码。例如，在D列中，我想保留ID的第一个实例，并删除重复的文件。 注意 Greg 解决方案 好的，这应该适合你。 该例程在列C中删除所有双重ID' Option Explicit Sub DeletDuplicate（） Dim x As Long Dim LastRow As Long LastRo
..
从数据库中查找一个值，并将匹配值的列表另存为另一个表
我想从列表中找到相应的光盘代码，并将它们复制到摘要表中的DiscName列中。一些实验室名称将具有多个光盘代码，所以当我运行宏时，它应该将与Lab名称匹配的所有相关光盘代码带到DiscName列。任何帮助将不胜感激。 不知道我是否可以上传摘要表的图像，但我看起来像这样。 Col 1 col 2 col 3 实验室名称光盘名称 （说abcd）xxxx yyyy zzzz pp
..
Excel VBA字边界（替换介词）
我需要做的是在单元格中的每个介词之前添加一个加号 + 由于某些原因， \b 将不适用于我。 在JavaScript中，它应该工作正常： （\bof\b | \bat\b） // $ with + $ 1 但是，具有相同正则表达式的Excel中的VBA脚本将不匹配任何内容。 p> 示例： Иотдохнутьотнихбылодлянегоспа
..
接受范围作为数组参数
我有一个函数需要一个数组并输出另一个数组。它的内部比下面的玩具示例更复杂。 公共功能divide_by_2_5（ByRef coeffs（）As Double）As Double Dim Columns As Integer 列= UBound（coeffs，2） - LBound（coeffs，2）+ 1 Dim output（）As Double ReDim输出（1到1，
..
比较两列与另外两列，并找到匹配以及非匹配
我试图找出如何循环两个数组，将第二个数组中的所有值与第一个数组中的所有值进行比较，对于每个匹配，测试列D中同一行的值和列H相等。 在我的第一个数组中，我有这样的数据。 在我的第二个数组中，我有这样的数据。 所以，对于OW单元格，我想比较 OW&报告实体，并确保两者都是VARCHAR。这将是这些字段名称的相同数据类型的匹配。另外，对于OW&货币，都是VARCHAR，所以再次匹
..
Excel宏“运行时错误”1004“
我很熟悉脚本，我正在努力改进现有的宏。 我记录了一个宏以删除dupliate并将其添加到调用其他函数的Main函数中，但是当我添加我记录的宏时，我收到此错误： 运行时错误'1004'： 应用程序定义或对象定义的错误。 代码看起来像 调用DeleteBlankRows 调用TrimText 结束 Sub DeleteBlankRows（） 。 。 End Sub
..
防止用户根据该行中的单元格的内容删除某些行
我有一个我想要保护的模板文件，以便用户不能修改公式。当工作表被保护时，我已经写了一个宏来允许用户插入行。我还希望一个宏允许用户删除行，但我想阻止用户删除某些关键行（例如，检查总计和标题等）。 为此，我在模板中使用了列L来标识不能删除的行。对于这些行，我在列L的行中有单词“keep”。我在下面写了一个基本的删除宏，但是我需要修改它以查看列L的所选范围 rRange 和退出Sub 如果单词“保持
..
Excel VBA：如何解决Index和Match函数类型不匹配的错误
当日期计数器更改时，我遇到索引和匹配函数中的错误。当我面对错误时，我写了一个评论。如果需要，我上传了我的数据样本。 示例： http://s000.tinyupload.com/?file_id=00243748825638974221 这里是代码： Sub regionalAverage（） Application.ScreenUpdating = False Appl
..
从VBA的多张表收集平均值
我需要计算一些范围（“C2：C11”）从几个工作表到新的工作表的平均值。如果添加新工作表并将数据输入到指定的范围内，该功能仍然可以工作。 到目前为止，我有这个 .... Sheets.Add Dim myavg As Collection 设置myavg =新集合 工作表中的每个工作表 myavg.Add wsheet.Range（“B2：B11”） 下一个 对
..
工作表更改事件粘贴值后不起作用
我有一个代码在 Worksheet_Change 如果列9更新，那么列8将自动通过与col 9和col 11相乘来填充。 但是当用户粘贴列中的值时，更改事件无法正常工作。只有Col 8中的第一个单元格被更新。 如何克服这个？ 解决方案 / p> Option Explicit Private Sub Worksheet_Change（ByVal Targe
..
如何为每个特定值生成工作表
我在项目中包含一些代码，我有一些我不明白的东西。我的使用循环不起作用。 我的目标是从特定单元格创建新工作表 B16 =每个单元格的房屋和其他新工作表 示例： 当用户点击按钮时： - 一个新的表格创建的标题= B16的价值刚刚在我的第一张表（名称MyFirstSheet） - 为每个单元格值创建的一些其他工作表包含单词PRIVATE，刚刚在上一张表。 所以结果将是 MyFir
..
Excel常量排序
我在Excel VBA中使用排序过程，并希望具有根据条件将顺序更改为升序或降序的变量集。 我试过这个，但是得到一个“类型不匹配”的错误。 如果SBF = 0然后 S =“xlAscending” 否则：S =“xlDescending” End If ActiveWorkbook.Worksheets（SN（x））。sort.SortFields.Add Key：= Range（_
..
Outlook和Excel VBA任务计划程序
我绝对需要帮助，因为这个整个“系统”应该在本周结束，但作为一个完全新手的 vba脚本和代码等，我不知道如何执行任务。 我已经创建了一个excel，根据到期日生成每日电子邮件提醒，并希望使用任务调度程序每天打开它。 我想要的： PC在745am自动启动（最有可能使用bios电源管理） li> PC到达用户登录页面 任务调度程序打开前景，接着是我的excel，并在上午8点发送电子
..
使用Excel VBA添加Powerpoint标题幻灯片
我有VBA代码从excel运行，它使用从excel文档中复制的图表生成了6个幻灯片PowerPoint的演示文稿。我使用什么代码行插入标题幻灯片，并定义该幻灯片上的文本（标题+子标题）？使用Excel 2007。 解决方案 所以，@Siddharth Rout提议的一些额外的选择（这也是好的）。我使用 .AddTitle 方法，在格式化该形状的情况下可能是有益的。 Sub add_
..
比较VB Excel中的二维数组
资料来源： 1 2 3 4 4 5 6 2 3 3 4 4 目标： 4 5 3 2 1 2 3 4 3 7 7 5 给定上述两个2-d数组，我将调用源和目标我想比较源的每一行与整个目标，并检查它是否存在于目标。对于 来自源（1 2 3 4）的示例行1将被视为与目标中的匹配（在第2行）。所以我需要比较源中给定行的目标中的每一行。如果源中的行不存在于目
..
数据透视和运行时错误1004：应用程序定义或对象定义的错误
我非常喜欢宏和VBA编码，而我正在尝试创建一个非常简单的宏，它从33个列的表中获取数据，并将其转换为一个枢纽。 只有最后3列（31,32,33）包含数字，我需要显示在枢轴上，因为我想比较当前月份，上个月和月份的变化。 这是我的代码到目前为止： Sub Macro6（） ' 'Macro6宏 ' ' Dim shtSrc As Worksheet，shtDest As Wo
..
合并多张表时数据重叠
我有一个包含n个工作表的Excel工作簿。我想将每张表单的数据合并到一张单张。来自第一张表的标题和数据应位于顶部，第二张表中的数据应在其下方，依此类推。所有的表都具有相同的列和标题结构。因此，标题应该只显示一次，即从头文件中获取标题和数据，只能从剩余的页面获取数据。我有以下代码： Sub Combine（） '此宏将复制所有行第一张表 '（包括标题） '，下一张表将只复制数据 '（从第
..
如何保持初始单元格颜色，而代码是高亮度的活动行
我有这个工作簿代码： Private Sub Workbook_SheetSelectionChange（ByVal Sh As Object，ByVal Target As Range） '切换工作表颜色 '代码将删除所有颜色$ b $ b'和颜色活动行和列 如果ActiveCell.Interior.ColorIndex xlNone Then Cells.Interi
..