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

时间:2016-05-30 10:40:11

标签: excel vba excel-vba csv macros

我的桌面上有一个文件夹,其中包含大约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

1 个答案:

答案 0 :(得分:0)

尝试了解发生了什么。此子目前所做的是打开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

现在,您可以使用myfileDir设置为下一个文件名:

myfile = Dir

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

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

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

我会让你一起修补这些。