Question

我的桌面上有一个文件夹，其中包含大约2000 csv个文件。这些文件只有1个“工作表”，但工作表名称有所不同。唯一类似的事情是它以“Tankard”这个词开头。

在那张工作表中，我只需删除Column A并保存所有2000个文件。这是我第二个月在工作中探索vba自动化。如果有人可以帮助我，我会很感激。提前谢谢。

脚本：

Sub Tank()
Dim wb As Workbook
Dim myPath As String
Dim myfile As String
Dim myExtension As String
Dim SheetName As String
'Optimize Macro Speed
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual

SheetName = "Tankard*"
  myPath = "\\ph00winfdfs01p\shares\JoeyC\documents\Roaming\Windows\Desktop\Tank\"
  If myPath = "" Then GoTo ResetSettings

'Target File Extension (must include wildcard "*")
  myExtension = "Tankard*.csv"

'Target Path with Ending Extention
  myfile = Dir(myPath & myExtension)

'Loop through each Excel file in folder
For i = 1 To 201
Set wb = Workbooks.Open(Filename:=myPath & myfile)
';;;;;;;;;;;;;;WRITE YOUR CODE HERE
Sheets("SheetName").Select
Columns("A").Select
Selection.Delete
wb.Close SaveChanges:=True

Next i
'Get next file name
myfile = Dir

'Message Box when tasks are completed
  MsgBox "Task Complete!"

ResetSettings:
  'Reset Macro Optimization Settings
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

Answer 1

尝试了解发生了什么。此子目前所做的是打开Dir可以找到的第一个工作簿，打开它201次，并且每次都删除工作表“Sheetname”的第一列。

Sheets("SheetName").Select

这将选择名称为"Sheetname"的工作表，而不是具有您将字符串Sheetname设置为的值的名称。如果有的话，它应该是Sheets(Sheetname)但是通配符在这里不起作用。

现在让我们来看看你想要实现的过程。

myfile = Dir(myPath & myExtension)

将myfile设置为与您的模式...\Tankard*.csv

匹配的第一个文件

Set wb = Workbooks.Open(Filename:=myPath & myfile)

打开文件，现在您可以通过wb

访问工作簿了

要删除工作表上的第一列，我建议您选择所有内容但直接删除范围：

wb.Sheets(1).Columns(1).Delete 'If you want to actually delete the column
wb.Sheets(1).Columns(1).Clear  'If you want to just remove the values

如您所见，您根本不需要表格的名称。现在保存工作簿：

wb.Close SaveChanges:=True

现在，您可以使用myfile将Dir设置为下一个文件名：

myfile = Dir

然后重复一遍，直到没有更多文件为止（此时Dir将返回""。实现这一目标的最佳方法是使用While循环，例如像这样< / p>

While myfile <> ""
    'Do stuff here
Wend '(While End)

优于For循环的优点是您无需知道文件夹中的确切文件数。

我会让你一起修补这些。

VBA：如何删除特定文件夹中的列“A”，其中不同的文件具有不同的工作表名称

1 个答案: