放在哪里原产地：= 65001代码
这个问题是从这里以前的问题的后续。
基于@Jeeped的回答，似乎解决这个问题的最好方法是将这部分代码插入到一个macros中：
Origin:=65001 这是为了强制我的代码导入UTF-8格式的文件。
现在问题出现了，我无法确定如何或在哪里插入上面的代码在我的macros。 我有以下的macros（我在网上find – 但不记得在哪里，所以不能信用），将大量文件导入工作簿，为每个文件创build电子表格。
Sub Extractions() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayStatusBar = False Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler FilesToOpen = Application.GetOpenFilename _ (fileFilter:="Microsoft Excel Files (*.*?), *.*?", MultiSelect:=True, Title:="Files to Import") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "No Files were selected" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpen(x), Delimiter:=Chr(124) Sheets().Move Before:=ThisWorkbook.Sheets _ (ThisWorkbook.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = False Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler Resume End Sub
有关如何解决这个问题的任何build议？
编辑1：
感谢@Rory的build议。 经过更多的调查，它看起来像Origin:=65001不是Workbook.Open的有效条目。
因此，我想知道是否有任何方法，我可以保持原始格式的文本文件，它被设置为UTF-8，而我导入到MFGI，使用上面的代码？
可能是这可能会给你一个提示。
Sub Test() Dim FD As FileDialog Dim FilesToOpen Dim e Dim tmp Set FD = Application.FileDialog(msoFileDialogFilePicker) With FD If .Show = -1 Then appTGGL bTGGL:=False For Each FilesToOpen In .SelectedItems tmp = Split(Dir(FilesToOpen), ".") Select Case tmp(UBound(tmp)) 'the last Case "xlsx" MsgBox "2007" Workbooks.Open Filename:=FilesToOpen Sheets().Move Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Case "xlsm" MsgBox "2007M" Workbooks.Open Filename:=FilesToOpen Sheets().Move Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Case "xls" MsgBox "2003" Workbooks.Open Filename:=FilesToOpen Sheets().Move Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Case "csv" MsgBox "CSV" Workbooks.Open Filename:=FilesToOpen, Delimiter:=Chr(124), Origin:=65001 Sheets().Move Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Case "txt" MsgBox "TXT" Workbooks.Open Filename:=FilesToOpen, Delimiter:=Chr(124), Origin:=65001 Sheets().Move Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Case Else MsgBox "NO Ext/Other Ext" End Select Next FilesToOpen appTGGL Else MsgBox "No Files were selected" End If End With
结束小组