Excel VBA将文本保存为'.fcf'文件扩展名

我有这段代码可以将excel表格中的文本保存为.txt文件。Excel VBA将文本保存为'.fcf'文件扩展名

我需要通过手动保存的文本文件，然后重命名它test.fcf适应这给.txt文件保存为.fcf

目前我解决这个问题。有没有可能在VBA中重新命名？或直接保存至.fcf？

Sub SaveColumn(sheetName As String, columnName As String, fileName As String) 

     Dim cell 
     Dim fso 
     Dim file 

     Set fso = CreateObject("Scripting.FileSystemObject") 
     Set file = fso.CreateTextFile(fileName, True) 
     For Each cell In Sheets(sheetName).Columns(columnName).Cells 
     If cell.Value <> "" Then 
      file.WriteLine cell.Value 
     End If 
     Next 
     file.Close 

     Set file = Nothing 
     Set fso = Nothing 
    End Sub 

To call it... 

    SaveColumn "Output to fcf.1", "A", "P:\4_Calcs\02. Flag Mapping\test_.txt"

来源

2015-09-25 squar_o

保存一个带有.fcf扩展名的文本文件不会将其作为Final Draft Converter File。 – pnuts

@pnuts .fcf在这种情况下是InfoWorks ICM特有的“标志更改文件”。当我手动将文本文件重命名为test.fcf时，它可以通过InfoWorks ICM读取，它可以在InfoWorks ICM模型中进行更改 –

您是否尝试更改通话中的文件名？

SaveColumn "Output to fcf.1", "A", "P:\4_Calcs\02. Flag Mapping\test_.fcf"

来源

2015-09-25 14:18:49

我曾经因为错字而无法工作。很简单的解决方案干杯! –

Excel VBA将文本保存为'.fcf'文件扩展名

回答

相关问题