Office中国论坛/Access中国论坛
标题:
从统一着装谈起——浅谈批量转换文件格式
[打印本页]
作者:
roych
时间:
2011-4-10 18:34
标题:
从统一着装谈起——浅谈批量转换文件格式
本帖最后由 roych 于 2011-4-10 18:42 编辑
得知公司全球CEO将在周三莅临敝司视察工作的消息之后,先是一年都没完成的地面刷漆工程,在短短的两三天内焕然一新,让Roy不得不相信世界上真有奇迹发生;接着提出“两个凡是”:“凡是有工衣而不穿者,不必来上班;凡是上班不穿工衣者,严重书面警告伺候”。
而我觉得,只要符合规范就好了,像这些员工,一年就两件工衣,到了梅雨季节还不知道该怎么换洗呢。但对于奇装异服,应该一律换成合适的着装。
正如
gaoyh2008
,昨天在帖子提到的
求助导入表问题
中的TSV文件。尽管TSV和CSV的面料都是一样(文本文件)的,但TSV就好比露背装,就是不能在工场里穿(导入到Access)。因此我们必须让她们换上职业装(转换文件格式):
Sub 处理数据()
Dim NewFileName As String '定义工衣类型(新的文件名)
Set fd = Application.FileDialog(msoFileDialogFilePicker) '定义保安(文件拾取器)
With fd
.AllowMultiSelect = True '定义点名机制(批量选取)
.Filters.Clear '忽略所有员工(全部文件格式)
.Filters.Add "制表符分隔文件(*.tsv)", "*.tsv" '定义奇装异服类型(不符合要求的文件格式)
.InitialView = msoFileDialogViewDetails
End With
rcd = 0
If fd.Show = -1 Then '如果找到这些员工(TSV文件)
For i = 1 To fd.SelectedItems.Count
NewFileName = Left(fd.SelectedItems(i), Len(fd.SelectedItems(i)) - 3) & "xls"
Name fd.SelectedItems(i) As NewFileName '开始更衣(转换格式)
Next i
End If
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