堆棧內存溢出
  簡體   English   中英

基於列表創建新工作表，並使用需要在路徑名中插入/循環功能的三個 .txt 文件填充這些工作表

[英]Create new sheets based on a list, and populate those sheets with three .txt files that need an insert/loop functionality within path name

 原文  2021-12-20 23:18:41  8   1    excel/ vba

問題描述

這是我想要完成的流程圖： 流程圖

我有一個城市列表：

Tokyo
Delhi
Shanghai
Sao+Paulo
Mexico+City
Cairo
Mumbai
Beijing
Dhaka
Osaka

這些城市中的每一個都有三個.txt 文件，這些文件以這種格式與每個城市相關：

PopulationFile{}.txt
LocationFile{}.txt
CityFile{}.txt

以下是同一文件夾中文件的完整列表：

PopulationFileTokyo?.txt
PopulationFileBeijing?.txt
PopulationFileCairo?.txt
PopulationFileDelhi?.txt
PopulationFileDhaka?.txt
PopulationFileMexico+City?.txt
PopulationFileMumbai?.txt
PopulationFileOsaka.txt
PopulationFileSao+Paulo?.txt
PopulationFileShanghai?.txt
LocationFileTokyo?.txt
LocationFileShanghai?.txt
LocationFileSao+Paulo?.txt
LocationFileOsaka.txt
LocationFileMumbai?.txt
LocationFileMexico+City?.txt
LocationFileDhaka?.txt
LocationFileDelhi?.txt
LocationFileCairo?.txt
LocationFileBeijing?.txt
CityFileTokyo?.txt
CityFileShanghai?.txt
CityFileSao+Paulo?.txt
CityFileOsaka.txt
CityFileMumbai?.txt
CityFileMexico+City?.txt
CityFileDhaka?.txt
CityFileDelhi?.txt
CityFileCairo?.txt
CityFileBeijing?.txt

這是目標：

  • 根據值列表創建工作表（在本例中為 Cities）
  • 使用范圍遍歷特定文件名（例如 PopulationFileTokyo.txt、LocationFileTokyo.txt、CityFileTokyo.txt）以粘貼到 {Cities} 表上的第 1 列、第 2 列和第 3 列（例如 Sheetname: Tokyo）
  • 循環插入每個城市的insert.txt文件數據處理

使用新的工作簿，我想自動化這個過程。 我想要

  • 在 VBA 中定義城市列表，
  • 然后，指示 VBA 根據此城市列表創建工作表，
  • 接下來，遍歷這些表，在前三列中粘貼每個城市的三個相關文件腳本應該將城市名稱從 Cities 插入文件路徑/名稱，以正確地將相關文件插入到相關表中（如“插入”后所示.txt 文件到流程圖中的列框中）只需要編輯文件路徑中的文件名，因為所有這些文件都在文件夾中

這是我創建的一個宏，顯示了此過程的手動步驟（創建三張工作表，然后返回並插入相關文件）：

Sub Macro3()
'
' Macro3 Macro
' Name sheet, create sheet, create sheet, insert data, insert data, insert data, switch sheet, insert data, insert data, insert data
'

'
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Tokyo"
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "Delhi"
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet3").Name = "Shanghai"
    Sheets("Tokyo").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/PopulationFileTokyo" & Chr(10) & ".txt" _
        , Destination:=Range("$A$2"))
        .Name = "PopulationFileTokyo" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("B2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/LocationFileTokyo" & Chr(10) & ".txt" _
        , Destination:=Range("$B$2"))
        .Name = "LocationFileTokyo" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("C2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/CityFileTokyo" & Chr(10) & ".txt" _
        , Destination:=Range("$C$2"))
        .Name = "CityFileTokyo" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Delhi").Select
    Range("A2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/PopulationFileDelhi" & Chr(10) & ".txt" _
        , Destination:=Range("$A$2"))
        .Name = "PopulationFileDelhi" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("B2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/LocationFileDelhi" & Chr(10) & ".txt" _
        , Destination:=Range("$B$2"))
        .Name = "LocationFileDelhi" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("C2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/CityFileDelhi" & Chr(10) & ".txt" _
        , Destination:=Range("$C$2"))
        .Name = "CityFileDelhi" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Shanghai").Select
    Range("A2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/PopulationFileShanghai" & Chr(10) & ".txt" _
        , Destination:=Range("$A$2"))
        .Name = "PopulationFileShanghai" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("B2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/LocationFileShanghai" & Chr(10) & ".txt" _
        , Destination:=Range("$B$2"))
        .Name = "LocationFileShanghai" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("C2").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/MyName/PycharmProjects/pythonProject7/CityFileShanghai" & Chr(10) & ".txt" _
        , Destination:=Range("$C$2"))
        .Name = "CityFileShanghai" & Chr(10) & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = False
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

最后，結果應該是 10 張名為 [Cities] 的工作表，其中第 1 列包含 PopulationFile{Cities}.txt，第 2 列包含 LocationFile{Cities}.txt，第 3 列包含 CityFile{Cities}.txt。 最后應將 30.txt 文件導入到相應的工作表中。

下面是Python代碼，它執行創建這些文件並寫入內容：

Cities.txt
Tokyo
Delhi
Shanghai
Sao+Paulo
Mexico+City
Cairo
Mumbai
Beijing
Dhaka
Osaka

readNames = open('Cities.txt', 'r').readlines()
print(readNames)
for i in readNames:
    open('PopulationFile{}.txt'.format(i), 'w').write('Pop1\nPop2\nPop3')
    open('LocationFile{}.txt'.format(i), 'w').write('Loc1\nLoc2\nLoc3')
    open('CityFile{}.txt'.format(i), 'w').write('City1\nCity2\nCity3')

如果需要任何其他信息或進一步澄清，請詢問！

1 個解決方案

解決方案1
 0  2021-12-21 09:50:38

請測試下一個代碼。 但請注意消除文件名末尾的奇怪字符（您顯示的文本中的問號，以及代碼中的Chr(10) ，這是不允許的。文件名放在兩行中是不允許的Windows...）。 所以， PopulationFileTokyo?.txt應該變成PopulationFileTokyo.txt等等。 並在運行之前仔細閱讀代碼行注釋：

Sub testPopulateCities()
   Dim wb As Workbook, foldPath As String, fileName As String, arrTxt
   Dim arrC, cit, arrCol, cl, colNo As Long, sheetN As String, i As Long
   
   'fill the cities array:
   arrC = Split("Tokyo,Delhi,Shanghai,Sao+Paulo,Mexico+City,Cairo,Mumbai,Beijing,Dhaka,Osaka", ",")
   arrCol = Split("Population,Location,City", ",") 'array of prefixes with meaning related to the insertion column
   
   Set wb = Workbooks.Add(xlWBATWorksheet) 'create a new workbook with a single sheet
   'insert the necessary sheets and naming them according to arrC array elements:
   For Each cit In arrC
        i = i + 1
        If i = 1 Then
            wb.Sheets(i).Name = cit                                                     'name the first sheet
        Else
            wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)).Name = cit 'insert and name the following sheets
        End If
   Next cit

   foldPath = "C:\Users\RealName\PycharmProjects\pythonProject7\" 'The folder path where the text files exist. Take care of its ending backslash (\)!!!
   
   fileName = dir(foldPath & "*.txt")              'determine the first file in the folder
   Do While fileName <> ""
         For Each cl In arrCol 'iterate between the array elements
            If InStr(fileName, cl) > 0 Then 'if the element exists in the file name:
                colNo = Application.match(cl, arrCol, 0)            'column where to insert data
                sheetN = Split(fileName, ".")(0)
                sheetN = Right(sheetN, Len(sheetN) - (Len(cl) + 4)) 'sheet name to insert data
                Exit For
            End If
         Next
         'place the text file content in an array, split by vbCrLf (Carriage return - linefeed combination):
         arrTxt = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(foldPath & fileName, 1).ReadAll, vbCrLf)
         wb.Sheets(sheetN).cells(2, colNo).Resize(UBound(arrTxt) + 1, 1) = Application.Transpose(arrTxt) ' drop the array content
    
        fileName = dir()                        'continue the iteration between files
   Loop
   MsgBox "Ready...", vbInformation, "Job done"
End Sub

暫無
暫無

聲明:本站的技術帖子網頁，遵循CC BY-SA 4.0協議，如果您需要轉載，請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

相關問題 創建新工作表，然后將三個 txt 文件導入到各自的列中 根據列表創建新工作表 如何根據列表創建新工作表？ 基於列表創建工作表並填充與工作表名稱相匹配的列的數據 創建循環以從三個工作表復制整個列並在新工作表中對它們進行排序 我需要根據在A列中找到的唯一名稱創建新工作表。“當前代碼”在某些工作表中生成了多余的數據 根據現有列表創建和更新工作表 在excel文件中搜索特定工作表以創建列表 創建報告模板表並根據日期和時間填充數據 使用主工作簿中的數據創建和填充新工作表
相關標簽
 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM