ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

    高级搜索
数据收集和协作,只需一张超级表格 魔方网表,Excel终结者,永久免费 Excel服务器学习和下载-做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 诚征Excel高手,共掘企业管理商机 Excel追价宝-用Excel追踪心仪商品价格 免费下载Excel行业应用视频
300集 易学宝-Office 2010微视频教程 【最新神器】邀请码限量发行 免费阅读《Excel函数其实很简单》 Excel透视表实战秘技 - 招生进行中
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 8540|回复: 6

[求助]TXT轉XLS時的問題(已解決)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-8-2 11:16 | 显示全部楼层 |阅读模式

  每天需要從系統里導出資料來進行整理。學著自己錄製巨集並根據高手門的指點完成了部分修改,現在仍然有部分問題需要修正,請各位指教!

謝謝了

操作過程說明在3樓,

求助問題在下面代碼,文字說明的部分

Sub 住宿費分析() ' ' 住宿費分析 Macro ' 住宿費分析 Dim SNAME As String Dim ICOUNT As Integer

SNAME = Application.GetOpenFilename("TEXT FILES(*.TXT),*.TXT") Workbooks.OpenText Filename:=(SNAME), Origin:=950, _ StartRow:=1, DataType:=xlFixedWidth, FieldInf=Array(Array(0, 9), Array(17 _ , 9), Array(23, 9), Array(35, 2), Array(44, 2), Array(54, 1), Array(59, 5), Array(70, 5), _ Array(80, 5), Array(90, 2)), TrailingMinusNumbers:=True

ICOUNT = Worksheets(1).[a65536].End(xlUp).Row

Application.Goto Reference:="R1C1:R4853C7" '此處4853需要使用 ICOUNT Selection.AutoFilter Selection.AutoFilter Field:=7, Criteria1:="<>F", Operator:=xlAnd, _ Criteria2:="<>M" Rows("2:4853").Select '此處4853需要使用 ICOUNT Selection.Delete Shift:=xlUp Range("A1:G4853").Sort Key1:=Range("G1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlStroke, DataOption1:=xlSortNormal '此處4853需要使用 ICOUNT Selection.AutoFilter Range("A1") = "工號" Range("B1") = "姓名" Range("C1") = "金額" Range("D1") = "起扣日" Range("E1") = "截止日" Range("F1") = "到職日" Range("G1") = "性別" Columns("A:G").EntireColumn.AutoFit

Range("A1:G4853").Select '此處4853需要使用 ICOUNT Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlStroke, DataOption1:=xlSortNormal

ActiveWorkbook.SaveAs Filename:="D:\2005年\宿舍\新資料夾\20050801.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False '文件名如何自動使用原文件名並存成XLS檔呢? End Sub

[此贴子已经被作者于2005-8-3 11:24:02编辑过]

Wn4sZhCc.rar

10.14 KB, 下载次数: 50

[求助]TXT轉XLS時的問題

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-2 14:42 | 显示全部楼层

老大阿,TXT文件不太方便給阿,

主要是將文字資料剖析分列,然後利用自動篩選刪除多餘的數據.

最後將資料排一下序,保存.

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-2 16:42 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-8-2 16:58 | 显示全部楼层
你就随便把一些数据更改一下,然后作为txt文件上传啊,这样的话有针对性了。[em01]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-2 18:17 | 显示全部楼层

修正完成

谢谢各位

Sub FENXI() ' ' 住宿費分析 Macro ' 住宿費分析 Dim SNAME As String Dim ICOUNT As Integer

SNAME = Application.GetOpenFilename("TEXT FILES(*.TXT),*.TXT") '設定文件為TXT檔 Workbooks.OpenText Filename:=(SNAME), Origin:=950, _ StartRow:=1, DataType:=xlFixedWidth, FieldInf=Array(Array(0, 9), Array(17 _ , 9), Array(23, 9), Array(35, 2), Array(44, 2), Array(54, 1), Array(59, 5), Array(70, 5), _ Array(80, 5), Array(90, 2)), TrailingMinusNumbers:=True '打開制定文件 ICOUNT = Worksheets(1).[a65536].End(xlUp).Row 'A列最後數據行數

Application.Goto Reference:="=R1C1:R[" & ICOUNT & "]C7" '注意引用ICOUNT的寫法

Selection.AutoFilter Field:=7, Criteria1:="<>F", Operator:=xlAnd, _ Criteria2:="<>M" '篩選第七列不等於F且不等於M的數據 Rows("2:" & ICOUNT).Select '注意引用ICOUNT的寫法 Selection.Delete Shift:=xlUp Range("A1:G" & ICOUNT).Sort Key1:=Range("G1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlStroke, DataOption1:=xlSortNormal Selection.AutoFilter '取消自動篩選 Range("A1") = "工號" Range("B1") = "姓名" Range("C1") = "金額" Range("D1") = "起扣日" Range("E1") = "截止日" Range("F1") = "到職日" Range("G1") = "性別" Columns("A:G").EntireColumn.AutoFit '設置A到G列的列寬為自動

Range("A1:G" & ICOUNT).Select Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlStroke, DataOption1:=xlSortNormal '按照第一列降序排序 Dim NIAN, YUE, RI As String NIAN = Format(Year(Date), "000#") YUE = Format(Month(Date), "0#") RI = Format(Day(Date), "0#") ActiveWorkbook.SaveAs "D:\2005年\宿舍\新資料夾\" & NIAN & YUE & RI, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False '把文件轉存為制定資料夾下,按照年月日命名. End Sub

TA的精华主题

TA的得分主题

发表于 2005-8-2 12:06 | 显示全部楼层

没有数据、没有txt文件啊

最好说明操作过程

TA的精华主题

TA的得分主题

发表于 2009-7-27 11:15 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆

本版积分规则

手机版|Archiver|关于我们|联系我们|ExcelHome ( 沪ICP备11019229号 )  
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!
本站特聘法律顾问:徐怀玉律师 李志群律师

GMT+8, 2015-5-27 19:34 , Processed in 0.224013 second(s), 27 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2017 Wooffice Inc.

征信       

快速回复 返回顶部 返回列表