設(shè)為首頁收藏本站Access中國

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步，快速開始

返回列表 發(fā)新帖
查看: 1904|回復: 1
打印 上一主題 下一主題

[模塊/函數(shù)] 如何在窗體中使用代碼把excel的csv文件另存為excel的工作薄xls呢

[復制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2015-1-10 10:34:22 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
本帖最后由 fatmingli 于 2015-1-10 10:39 編輯

如何在窗體中使用代碼把excel的csv文件另存為excel的工作薄xls呢

原文件 .csv  用代碼自動另存為   新文件 .xls


不好意思，好像把貼子發(fā)錯地方了。




本帖子中包含更多資源

您需要 登錄 才可以下載或查看，沒有帳號？注冊

x
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱

點擊這里給我發(fā)消息
2#
發(fā)表于 2015-1-10 10:38:52 | 只看該作者
Set objWb = objExl.Workbooks.Open(CurrentProject.Path & "\你的excel文件.xls") '打開文件
            
另存為
objWb.SaveAs CurrentProject.Path & "\Output\FileAll.xls", -4143  'xlExcel8 56

xlExcel8 56
你可查一下csv等各種格式
            
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則

QQ|站長郵箱|小黑屋|手機版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2024-10-23 08:35 , Processed in 0.083667 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表