求助，Application.WorksheetFunction.Transpose(fil)的存在必要？

翻滚吧炒鸡蛋

在本书第250页，即6.3.5中最后一个例子中，程序中Application.WorksheetFunction.Transpose(fil)有无存在的必要？试了直接把Application.WorksheetFunction.Transpose(fil)替换成 fil 运行也没问题。
原文：
Sub getfile4()
    Dim fil
    fil = Application.GetOpenFilename(filefilter:="excel 97-2003工作薄(*.xls),*.xls,word 97-2003文档(*.doc),*.doc", FilterIndex:=2, Title:="请选择文件", MultiSelect:=True)
    [a1].Resize(UBound(fil), 1) = Application.WorksheetFunction.Transpose(fil)
End Sub

hehex

根据GetOpenFilename 这个方法里面的  MultiSelect:=True 这个选项，就是说允许你同时选择多个文件名。
并且将这些文件名返回到一个下标从0开始的一维数组里面，本例这个数组的名字是fil。

如果你在操作时只选了一个文件，那么这个数组只有一个元素，那么就无所谓使用转置函数Transpose 了，因为只有一个元素。参考p251 页的附图，因为MultiSelect:=True  的设定，允许选择多于一个的文件名。那个附图是同时选择了两个。如果要把这两个文件名输出到一列单元格内，当然要转置。因为一维数组写入单元格是按行写的。你可以试试选择多个不转置的情况。

在写程序时不能确定使用者是否会选择多于一个的文件名的情况，为了确保结果一定产生在同一列里，所以这里这个转置函数是必须的。如果不要的话，应该去掉MultiSelect:=True 选项，只能选一个当然无所谓行和列了。

另外Application.WorksheetFunction.Transpose(） 这种工作表函数调用是最繁琐或者说最正统的方式，实际使用时没必要写这么长。可以用Application.Transpose(）或者WorksheetFunction.Transpose() 都工作的。

翻滚吧炒鸡蛋

hehex 发表于 2013-12-22 14:28
根据GetOpenFilename 这个方法里面的  MultiSelect:=True 这个选项，就是说允许你同时选择多个文件名。
并 ...

3Q，理解了！

332024132

谢了