Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步，快速開(kāi)始

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

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

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

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

原文件 .csv  用代碼自動(dòng)另存為   新文件 .xls


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




本帖子中包含更多資源

您需要 登錄 才可以下載或查看，沒(méi)有帳號(hào)？注冊(cè)

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

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

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

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-13 08:34 , Processed in 0.101081 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表