有哪位高人知道vb中怎么转换excel的格式

VB > 数据库(包含打印，安装，报表)
收藏 回复
[问题点数：20分，结帖人yaomin65]
更多帖子
私信 空间 博客
yaomin65
等级
本版专家分：99
结帖率 97.65%
我发现转换到excel的数据为文本格式，但我需要的是数字格式，我加了一句转换语句，但是不行
Private Sub Command2_Click() 
Set xlapp = CreateObject("Excel.Application") 
Set xlbook = xlapp.Workbooks.Add 
Set xlsheet = xlbook.Worksheets(1) 

With Adodc1.Recordset 
xlsheet.Range("a1").CopyFromRecordset Adodc1.Recordset 
xlapp.Visible = True 
Columns("a:d").AutoFit 
xlapp.columns("d").numberformat= "0"  
‘这句转换语句，运行后报实时错误1004 不能设置range的numberformat属性    
xlapp.Workbooks.Close 
Set xlapp = Nothing 
End With 
End Sub 
请高人指点一下，应该怎么转换格式
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
jhone99
等级
本版专家分：64057
勋章
Blank
红花 2010年10月 VB大版内专家分月排行榜第一
2010年9月 VB大版内专家分月排行榜第一
2010年8月 VB大版内专家分月排行榜第一
2008年12月 VB大版内专家分月排行榜第一
Blank
黄花 2011年7月 VB大版内专家分月排行榜第二
2010年7月 VB大版内专家分月排行榜第二
2009年12月 VB大版内专家分月排行榜第二
2009年11月 VB大版内专家分月排行榜第二
2009年10月 VB大版内专家分月排行榜第二
2009年8月 VB大版内专家分月排行榜第二
2008年11月 VB大版内专家分月排行榜第二
2008年10月 VB大版内专家分月排行榜第二
2008年9月 VB大版内专家分月排行榜第二
Blank
蓝花 2010年6月 VB大版内专家分月排行榜第三
2009年9月 VB大版内专家分月排行榜第三
2009年3月 VB大版内专家分月排行榜第三
2009年2月 VB大版内专家分月排行榜第三
2009年1月 VB大版内专家分月排行榜第三
xlapp.columns("d.NumberFormatLocal = "@"
只看TA 引用 举报 #1得分 0
私信 空间 博客
doveday
等级
本版专家分：166
不會啊，轉成XLS，還是數字格式啊 
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
yaomin65
等级
本版专家分：99
to jhone99:
用NumberFormatLocal不管用，我试了很多，"1","0000","@" ,程序是不报错了，但转换到excel的数据还是文本的
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
yaomin65
等级
本版专家分：99
to doveday
看上去是数字，但excel的单元格上有一个绿三角，点上去后出现黄色惊叹号，提示此单元中数字为文本格式
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
jhone99
等级
本版专家分：64057
勋章
Blank
红花 2010年10月 VB大版内专家分月排行榜第一
2010年9月 VB大版内专家分月排行榜第一
2010年8月 VB大版内专家分月排行榜第一
2008年12月 VB大版内专家分月排行榜第一
Blank
黄花 2011年7月 VB大版内专家分月排行榜第二
2010年7月 VB大版内专家分月排行榜第二
2009年12月 VB大版内专家分月排行榜第二
2009年11月 VB大版内专家分月排行榜第二
2009年10月 VB大版内专家分月排行榜第二
2009年8月 VB大版内专家分月排行榜第二
2008年11月 VB大版内专家分月排行榜第二
2008年10月 VB大版内专家分月排行榜第二
2008年9月 VB大版内专家分月排行榜第二
Blank
蓝花 2010年6月 VB大版内专家分月排行榜第三
2009年9月 VB大版内专家分月排行榜第三
2009年3月 VB大版内专家分月排行榜第三
2009年2月 VB大版内专家分月排行榜第三
2009年1月 VB大版内专家分月排行榜第三
数字？整反了
xlapp.columns("d").NumberFormatLocal = "0_ "
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
yaomin65
等级
本版专家分：99
to jhone99
也用过的，运行后报实时错误1004 不能设置range的numberformat属性 
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
jhone99
等级
本版专家分：64057
勋章
Blank
红花 2010年10月 VB大版内专家分月排行榜第一
2010年9月 VB大版内专家分月排行榜第一
2010年8月 VB大版内专家分月排行榜第一
2008年12月 VB大版内专家分月排行榜第一
Blank
黄花 2011年7月 VB大版内专家分月排行榜第二
2010年7月 VB大版内专家分月排行榜第二
2009年12月 VB大版内专家分月排行榜第二
2009年11月 VB大版内专家分月排行榜第二
2009年10月 VB大版内专家分月排行榜第二
2009年8月 VB大版内专家分月排行榜第二
2008年11月 VB大版内专家分月排行榜第二
2008年10月 VB大版内专家分月排行榜第二
2008年9月 VB大版内专家分月排行榜第二
Blank
蓝花 2010年6月 VB大版内专家分月排行榜第三
2009年9月 VB大版内专家分月排行榜第三
2009年3月 VB大版内专家分月排行榜第三
2009年2月 VB大版内专家分月排行榜第三
2009年1月 VB大版内专家分月排行榜第三
测试了

Private Sub Command1_Click()

    Dim xlapp As Excel.Application

    Dim xlbook As Excel.Workbook

    Dim xlsheet As Excel.Worksheet

    

    Set xlapp = CreateObject("Excel.Application")

    Set xlbook = xlapp.Workbooks.Add

    Set xlsheet = xlbook.Worksheets(1)

    

    With Adodc1.Recordset

        xlsheet.Range("a1").CopyFromRecordset Adodc1.Recordset

        xlapp.Visible = True

        xlsheet.Columns("a:d").AutoFit

        xlsheet.Range("Z1").FormulaR1C1 = "1"

        xlsheet.Range("Z1").Copy

        xlsheet.Columns("D").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False

        xlsheet.Range("Z1").FormulaR1C1 = ""

        xlsheet.SaveAs App.Path & "\test.xls"

        xlapp.Workbooks.Close

        Set xlapp = Nothing

    End With



End Sub
只看TA 引用 举报 #7得分 20
更多帖子
私信 空间 博客
yaomin65
等级
本版专家分：99
to jhone99
不行啊，老大，我这里还是报错：实时错误1004
类range的pastespecial方法无效，是不是我们的vb版本不同啊，我用的是6.0的
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
jhone99
等级
本版专家分：64057
勋章
Blank
红花 2010年10月 VB大版内专家分月排行榜第一
2010年9月 VB大版内专家分月排行榜第一
2010年8月 VB大版内专家分月排行榜第一
2008年12月 VB大版内专家分月排行榜第一
Blank
黄花 2011年7月 VB大版内专家分月排行榜第二
2010年7月 VB大版内专家分月排行榜第二
2009年12月 VB大版内专家分月排行榜第二
2009年11月 VB大版内专家分月排行榜第二
2009年10月 VB大版内专家分月排行榜第二
2009年8月 VB大版内专家分月排行榜第二
2008年11月 VB大版内专家分月排行榜第二
2008年10月 VB大版内专家分月排行榜第二
2008年9月 VB大版内专家分月排行榜第二
Blank
蓝花 2010年6月 VB大版内专家分月排行榜第三
2009年9月 VB大版内专家分月排行榜第三
2009年3月 VB大版内专家分月排行榜第三
2009年2月 VB大版内专家分月排行榜第三
2009年1月 VB大版内专家分月排行榜第三
程序修改了吗？
应该不是vb版本的问题，你的office是什么版本
只看TA 引用 举报 #9得分 0
更多帖子
私信 空间 博客
yaomin65
等级
本版专家分：99
我用的是office2003
只看TA 引用 举报 #10得分 0
1 2
收起
收藏 回复
yaomin65

等级：

关注 私信 TA的帖子
VB.NET DataGridView中的数据导入到Excel

背景介绍：数据库里"卡信息表"中数据已成功在DataGridView1控件中显示，实现代码请见博客《VB.NET 中DataGridView显示数据库中的数据》，瑕疵颇多，望高人指教；这里只介绍DataGridView控件中的数据是如何导入到...

VB Excel 增加一个新sheet 的时候，怎么判断是否存在

增加一个新sheet 的时候，怎么判断是否存在各位高人 怎么用程序判断是工作簿中存在的工作页，在增加新页的时候，， 帮帮忙yygy 2003-8-26 19:33Dim WORK As WorksheetBool = Falsess="新页名称"For Each w In ...

我在CSDN参与的3000个帖子

今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分... 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎

使用Excel背单词-高效-简单

excel中已经做好了模板，直接可以用，唯一加密的是VB代码，不影响使用。 3.加密说明：和研究VB开发没关系的请忽略，采用md5加密方式，密文...很好猜，欢迎破解~可以通过kevinkitty7@163.com与本人讨论。

Delphi与Word之间的融合技术

问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...

十年MFC经历认识的Microsoft技术

自从2005年3月8日下午16时“十年MFC经历认识的Microsoft技术”以帖子的方式发表于CSDN论坛后，引起了许多网友得好评，使得笔者诚惶诚恐，考虑到该贴过长(人气指数为5000)，因此... 初识MFC 我最初知道MFC大概是在1993年

十年MFC经历认识的Microsoft技术【原创】

十年MFC经历认识的Microsoft技术【原创】孙辉 自从2005年3月8日下午16时“十年MFC经历认识的Microsoft技术”以帖子的方式发表于CSDN论坛后，引起了许多网友得好评，使得笔者诚惶诚恐，考虑到该贴过长(人气指数为...

windows类书的学习心得

windows类书的学习心得 这篇文章应该是凑的，不够很长，还是值得读的，转发来。下满是原网址： ... ...创建人： paul 现在的计算机图书发展的可真快,很久没去书店,昨日去了一下,真是感叹万千,很多陌生的出版社,很多...

Jiangsheng的CSDN Digest(May 15, 2006)

为了便于搜索（http://search.csdn.net）,这里尽可能保留了论坛上讨论的原文，但是这并不表示本人赞同帖子中的表述方式和观点。 CSDN 讨论总结系列： Jiangsheng的CSDN Digest(April 3, 2006) ...

CSDN回帖得分大全（近两年）

√vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC ... [VC/MFC 界面] 40 chencheng8095 05-23 00:2911 xianglitian06-10 11:51管理√CFileFind::FindFile 支持通配符么？ [VC/MFC 基础类] 100 wysbk002 05-22

Cognos应用

Cognos服务器移植后PlowePlay Enterprise Server打不开了拒绝访问(Access is denied)这是新装的Cognos服务器，将原先服务器上的cer1/bin下执行upfpack打包，将Access Manager中用户导出，再导入到新服务器中，执行...

基础

各位兄弟，在SDK编程中如果实现窗口分割呢？请问怎么得到一个函数的执行时间，单位毫秒！如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头？高分请教如何限制程序运行的方法？求助：通过编程DirectX抓屏-----...

"对象库未注册"问题

然后又试着重新添加部件，发现还是一样。之后请教高人，问题解决了，其实就是注册一下这个控件就行。  在运行窗口输入cmd，在打开的Dos窗口中输入“regsvr32 + 要注册的控件的路径”，再回车，就好了。

如何用C#编写文本编辑器

 本文探讨了使用C#从底层开发一个带格式的文本编辑器的任务，深入探讨了其中的文档对象模型的设计，图形化用户界面的处理和用户操作的响应，说明了其中的某些技术问题和解决之道。 前言  小弟从大学里开始...

7000个源码批量下载

7000个源码批量下载 < type="text/javascript" language="JavaScript">document.title="7000个源码批量下载 - "+document.title <br />http://asp.lt263.com/soft/SaGuestBook.rar 安全天使字符界面留言...

JAVA开发全集

soap消息的分析和消息的创建和传递和处理 @WebService public interface IMyService {  @WebResult(name="addResult")  public int add(@WebParam(name="a")int a,@WebParam(name="b")int b);...

如何做职业规划并进行求职准备（持续更新）

读《这些道理没有人告诉过你》的职业规划思考 1.... 2....（不太清楚行业的分类，暂时先这么写吧） ... 最高目标公司三家：阿里巴巴集团 、天猫 、京东 （亚马逊、沃尔玛百货公司、 苏宁云商集团股份有...

sql server

sql server 作者：Sanle 来源：博客园 发布时间：2006-04-27 13:06 阅读：3402 次 原文链接 [收藏]  ...1.清空日志:DUMP TRANSACTION 库名 WITH NO_LOG  ...2.截断事务日志:BACKUP LOG 数据库名 WITH NO_...

Delphi与Word之间的融合技术（下）zt

Delphi与Ole,Word,Excel,查找与替换等 Delphi与Word之间的融合技术（下）zt来自：yzhshi, 时间：2002-2-2 14:24:00, ID：902680前面我就Delphi中调用Word写了一些，比较注重于具体实现，对于研究的方法则说的比较...

程序员调试能力和相关书籍

楼主vcleaner（我没当大哥很久了.......）2005-05-23 09:09:42 在 VC/MFC / 基础类 提问在软件行业中，个人觉得每个Coder、Leader（那些当了Leader以后就不需要Code的除外）都应该除了具有良好的编码能力以外，最为...

程序员的未来之路[转]

程序员的未来之路 一、我很羡慕在座的各位同学，因为你们是中国未来的程序员，而我不是，我一直很遗憾。比尔盖茨曾经写过一本书叫做《未来之路》The road ahead, 那么今天我选择这样一个...俗话说：心有多大，人生

ASP.NET直接下载一个文件，而不是在IE中打开它

[.NET Tips 1001]ASP.NET直接下载一个文件，而不是在IE中打开它 有的时候我们不想让用户直接在IE中打开已知类型的文件，比如Word，而希望能直接下载，这时候可用下面代码来替换Response.RedirectResponse....

ASP.net难点解析

认识Asp.net 中相对路径与绝对路径 分类： 技术文档2010-01-1217:051490人阅读评论(1)收藏举报 好多人对相对路径与绝对路径老是混淆记不清楚，我从整理了一下，希望对大家的认识有帮助。 +++++++++++++++++++++...

做个精致的电子工程师

2006年从珠三角带着惊恐，好奇和成就感辗转来到了上海，2007年至2010年发起并参与组织了上海年度电子工程师聚会，见过菁菁木华的人，说不是那种style，更有不少人误以为菁菁木华是女的，菁菁木华是搞市场的。...

vb/vb.net开发精粹(12)

EXCEL一工作表中的内容复制到另一工作表中 如何确定范围？？？？ 关于设置数字时钟 一个LISTBOX引发的血案.... 关闭重复的窗口？？例如有三个名为aaaaa的窗口,如何关闭两个留一个？ VarType的一个奇怪现象 ...

十大交易系统源码 （http://bbs.tb18.net/forum.php?mod=viewthread&action=printable&tid=22501）

作者: tufeiyige 时间: 2012-7-21 11:22:05 据美国权威交易系统评选杂志《Futures Truth Magazine》2011 年10 月 最新发布的交易系统排名，NatGator、Catscan、DCS II 等模型的业绩 在过去一年进入了前十名...

vb/vb.net开发精粹(11)

请问变量名中有数字如何循环 IIS上跑VB项目 VB如何连接网络上的打印机 vb 二进制文件随机访问 Excel VBA编程 vb 引用不了system.data.sqlite.dll 关于 VB6 调用C++ DLL 传参的问题 VB编程问题，如何调试，...

【整理】pandas教程

辛苦整理的，非常不错，可以用来学习pandas的基本操作。 正文目录： pandas教程：[1]DataFrame入门 pandas教程：[2]DataFrame选择数据 pandas教程：[3]DataFrame切片操作 pandas教程：[4]Dataframe筛选数据 pandas教程：[5]读取csv数据 pandas教程：[6]计数统计 pandas教程：[7]筛选计数统计 pandas教程：[8]数据分组 pandas教程：[9]MultiIndex用法 pandas教程：[10]groupby选择列和迭代 pandas教程：[11]aggregate分组计算 pandas教程：[12]transformation标准化数据 pandas教程：[13]agg分组多种计算 pandas教程：[14]按月分组 pandas教程：[15]移动复制删除列 pandas教程：[16]字符串操作 pandas教程：[17]字符串提取数据 pandas教程：[18]匹配字符串 pandas教程：[19]读写sql数据库 pandas教程：[20]广播 pandas教程：[21]带有缺失值的计算 pandas教程：[22]填充缺失值 pandas教程：[24]删除缺失数据 pandas教程：[25]插值法填补缺失值 pandas教程：[26]值替换 pandas教程：[27]散点图和抖动图 pandas教程：[28]散点图添加趋势线 pandas教程：[29]柱形图 pandas教程：[30]直方图 pandas教程：[31]箱形图

Lua语言从入门到精通

深入浅出Lua学习 深入浅出Lua学习

嵌入式工程师养成计划之——嵌入式软件工程师完全学习指南

本系列课程针对有意向学习嵌入式软件开发的童鞋，从零开始、深入浅出，内容涵盖：linux系统基础、shell、linux C编程、linux系统编程、网络编程、ARM体系结构及汇编语言、ARM裸机编程、linux系统移植、linux驱动开发等模块。分多个子课程逐步学习。 本课程是全套课程的第0部（前传），目的是讲解我们的整个视频学习体系路线图，同时也会对大家学习路线的一个指引。 本期课程共计4节课，主要回答了何为嵌入式、为何要学习嵌入式、什么人适合学嵌入式、究竟应该怎样去学嵌入式等问题。最后为大家详细介绍了我们的嵌入式软件工程师学习路线图，希望能够对大家的嵌入式学习之路有所指引。

相关热词 c# 挂机锁 c# 不能再打开其它表了 c#移除行 c#socket建立通信 c# 拦截socket c#做一个问卷调查 c++结构体转换为c# c# 判断组合键 c# 的类 重写dll c# 五层嵌套 优化