Office中国论坛/Access中国论坛

标题: 从统一着装谈起——浅谈批量转换文件格式 [打印本页]

作者: roych    时间: 2011-4-10 18:34
标题: 从统一着装谈起——浅谈批量转换文件格式
本帖最后由 roych 于 2011-4-10 18:42 编辑

       得知公司全球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    时间: 2011-4-10 22:54
好东西.下载学习
作者: xie62    时间: 2011-4-11 07:52
下载学习
作者: gxy1000    时间: 2011-4-11 09:28
看看学习
作者: ycxchen    时间: 2011-4-11 09:37
通俗易懂的说明,好!
作者: 真主    时间: 2011-4-11 10:06
谢了
作者: gaoyh2008    时间: 2011-4-11 17:36
十分感謝LZ,以後還望多多賜教,謝謝!
作者: yanwei82123300    时间: 2011-4-11 20:01
好东西.下载学习
作者: c101    时间: 2011-4-12 00:48
下载学习
作者: xuwenning    时间: 2011-4-12 08:19
谢谢分享
学习学习
作者: 余方方    时间: 2011-4-16 08:36
通俗有趣,谢谢分享
作者: efcndi    时间: 2011-11-24 12:48
看看
作者: wufeng980114    时间: 2012-8-24 07:48
下载学习
作者: wufeng980114    时间: 2012-8-24 07:50
谢谢分享
作者: wang1950317    时间: 2012-8-25 16:54
谢谢分享!




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3