Microsoft技术社区联盟成员,全球领先的Excel门户,Office培训学习的最佳社区
加关注|繁體中文 切换到窄版

ExcelHome技术论坛

 找回密码
 免费注册

用新浪微博连接

一步搞定

QQ登录

只需一步,快速开始

      高级搜索
魔方网表,Excel终结者,永久免费 Excel服务器学习和下载-做管理系统 Excel Home官方微博精品教程库
Excel不给力? 何不试试FoxTable! 2014年下半年Excel免费培训班计划 Excel协同平台+ERP标准框架+免费设计模板 免费下载Excel行业应用视频教程
Excel 2007表格基本操作秘技 免费学习Word 2007实战技巧视频 前所未见,90集Excel2010视频教程公开 最权威、易懂的VBA学习宝典
超级强悍, 无比易用的 Excel 工具集 你的Excel 2010函数公式学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
  • 910财富
  • 0鲜花
  • 0技术
    • 等级 3EH中级
    积分排行
    1499
    帖子
    267
    精华
    0
    微积分
    0
    发表于 2005-8-2 11:16:00 |显示全部楼层
    分享到:

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

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

    謝謝了

    操作過程說明在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時的問題

    EXCEL=“E\"&\"X\"&\"C\"&\"E\"&\"L\"
  • 29484财富
  • 5鲜花
  • 21技术
  • 积分排行
    20
    帖子
    14853
    精华
    3
    微积分
    0

    大侠勋章 优秀会员 优秀会员

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

    没有数据、没有txt文件啊

    最好说明操作过程

  • 910财富
  • 0鲜花
  • 0技术
    • 等级 3EH中级
    积分排行
    1499
    帖子
    267
    精华
    0
    微积分
    0
    发表于 2005-8-2 14:42:03 |显示全部楼层

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

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

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

    EXCEL=“E\"&\"X\"&\"C\"&\"E\"&\"L\"
  • 910财富
  • 0鲜花
  • 0技术
    • 等级 3EH中级
    积分排行
    1499
    帖子
    267
    精华
    0
    微积分
    0
    发表于 2005-8-2 16:42:27 |显示全部楼层
    HELP!!
  • 53财富
  • 0鲜花
  • 0技术
    • 等级 2EH初级
    积分排行
    3000+
    帖子
    15
    精华
    0
    微积分
    0
    发表于 2005-8-2 16:58:43 |显示全部楼层
    你就随便把一些数据更改一下,然后作为txt文件上传啊,这样的话有针对性了。[em01]
  • 910财富
  • 0鲜花
  • 0技术
    • 等级 3EH中级
    积分排行
    1499
    帖子
    267
    精华
    0
    微积分
    0
    发表于 2005-8-2 18:17:45 |显示全部楼层

    修正完成

    谢谢各位

    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

    EXCEL=“E\"&\"X\"&\"C\"&\"E\"&\"L\"
  • 3财富
  • 0鲜花
  • 0技术
    • 等级 1EH新人
    积分排行
    3000+
    帖子
    1
    精华
    0
    微积分
    0
    发表于 2009-7-27 11:15:36 |显示全部楼层
    楼主辛苦了,不错的东西

    发表回复

    您需要登录后才可以回帖 登录 | 免费注册

    发帖时请遵守我国法律,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任。
    关闭

    最新热点

    关于发帖要求邮箱认证的说明
    - 注意:自2014/8/1起,未完成邮箱认证的会员将无法发帖!
    如何完成邮箱认证?请点击下方“查看”。

    查看 »

    回顶部