从统一着装谈起——浅谈批量转换文件格式

roych

       得知公司全球CEO将在周三莅临敝司视察工作的消息之后，先是一年都没完成的地面刷漆工程，在短短的两三天内焕然一新，让Roy不得不相信世界上真有奇迹发生；接着提出“两个凡是”：“凡是有工衣而不穿者，不必来上班；凡是上班不穿工衣者，严重书面警告伺候”。
       而我觉得，只要符合规范就好了，像这些员工，一年就两件工衣，到了梅雨季节还不知道该怎么换洗呢。但对于奇装异服，应该一律换成合适的着装。
       正如 gaoyh2008，昨天在帖子提到的求助导入表问题中的TSV文件。尽管TSV和CSV的面料都是一样（文本文件）的，但TSV就好比露背装，就是不能在工场里穿（导入到Access）。因此我们必须让她们换上职业装（转换文件格式）：

1. Sub 处理数据()
   
2. Dim NewFileName As String '定义工衣类型（新的文件名）
   
3. Set fd = Application.FileDialog(msoFileDialogFilePicker) '定义保安（文件拾取器）
   
4. With fd
   
5. .AllowMultiSelect = True '定义点名机制（批量选取）
   
6. .Filters.Clear '忽略所有员工（全部文件格式）
   
7. .Filters.Add "制表符分隔文件(*.tsv)", "*.tsv" '定义奇装异服类型（不符合要求的文件格式）
   
8. .InitialView = msoFileDialogViewDetails
   
9. End With
   
10. rcd = 0
    
11. If fd.Show = -1 Then '如果找到这些员工（TSV文件）
    
12.     For i = 1 To fd.SelectedItems.Count
    
13.    NewFileName = Left(fd.SelectedItems(i), Len(fd.SelectedItems(i)) - 3) & "xls"
    
14.    Name fd.SelectedItems(i) As NewFileName '开始更衣（转换格式）
    
15.    Next i
    
16. End If
    
17. End Sub

复制代码

由于某些字符（例如逗号）的问题，所以这里没有给出直接导入Excel文件的代码还是按向导来完成要好些。

游客，如果您要查看本帖隐藏内容请回复

yodong

好东西.下载学习

xie62

下载学习

gxy1000

看看学习

ycxchen

通俗易懂的说明，好！

真主

谢了

gaoyh2008

十分感謝LZ,以後還望多多賜教,謝謝!

yanwei82123300

好东西.下载学习

c101

下载学习

xuwenning

谢谢分享
学习学习