ディレクトリ内の特定の列から空白を削除します。

Question

ディレクトリに.csvファイルが多数あります。 4番目の列（数値）には、以下の例のように、間に空白があります。各ファイルを1つずつ開くことなく、列内のスペースだけを削除し、ディレクトリ内のすべてのファイルに適用するにはどうすればよいですか。

"EMIS Number","Organisation Name","Organisation Code","Number","Date","Clinical Code","Code Term", 
"11","West Hampstead Medical Centre","F03033","931 094 3111","19-Apr-1019","G340-1","Coronary artery disease", 
"14","Prince Of Wales Medical Centre","F03010","401 300 1319","03-Jan-1004","G30","Acute myocardial infarction", 
"13","HAMPSTEAD GROUP PRACTICE","F03014","411 419 3949","1999","G3","Ischaemic heart disease", 
"19","BROOKFIELD PARK SURGERY","F03031","400 134 0101","1991","G3","Ischaemic heart disease", 

P.S. ExcelとVBAを試しましたが、両方とも式を実行するにはそれぞれのファイルを開く必要があります。私もUltraEditを試しましたが、特定の列ではないすべてのファイル内のすべてのスペースが削除されます。

Answer 1

すべてのファイルをループするには、次のコードを参照してください。

Sub OpenFiles() 
    Dim MyFolder As String 
    MyFolder = "Your Folder Name where all files are saved." 
    Dim MyFile As String 
    MyFile = Dir(MyFolder & "\*.csv") 
    Do While MyFile <> "" 
     Workbooks.Open Filename:=MyFolder & "\" & MyFile 
     Columns("D:D").Replace What:=" ", Replacement:="", LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Activeworkbook.close true 
     MyFile = Dir 
    Loop 
End Sub 

ファイルを開いたら、スペースを削除するコードを追加します。