首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

,关于怎么读取EXCEL表格中数据

2012-02-22 
各位大哥,关于如何读取EXCEL表格中数据内容:1我在USB中存的.CSV文件2我想通过VBA读取USB中的CSV文件,然后

各位大哥,关于如何读取EXCEL表格中数据
内容:
            1   我在USB中存的.CSV文件
            2   我想通过VBA读取USB中的CSV文件,然后在生成一个EXCEL文件.
            3   新生成的EXCEL中,不仅有USB中CSV文件的内容还有多加的曲线图表.
            4   然后打开生成(新文件)的文件.
                                                                    如果有不明白的可以问我> 谢谢了.

[解决办法]
俺不会,扛条板凳和你一起等待高人指点。支持一下
[解决办法]
不难,就是代码不想写!!
把EXCEL对象搞明白,很容易就能写出来!
1 我在USB中存的.CSV文件=-====和平时的D盘等一样,不过要坚持是否准备好,如果自读数据就不用检查是否可写

我想通过VBA读取USB中的CSV文件,然后在生成一个EXCEL文件.
因为你的EXCEL数据不是和CSV一模一样的,所以你需要操作CELLS,不能直接导出数据,如果一样,可以直接导数据存储!
3 新生成的EXCEL中,不仅有USB中CSV文件的内容还有多加的曲线图表.
这个你要根据数据来操作CHARTS了!

Dim x As Chart 'Create an embedded chart on a chart sheet.
Set x = Charts.Add
x.ChartType = xlLine
x.SetSourceData Source:=Sheets( "Sheet1 ").Range( "A1:C4 ")
'Set x = x.Location(Where:=xlLocationAsObject, Name:= "Sheet1 ")
'Move chart to new sheet and reset the chart object variable x.

Set x = x.Location(Where:=xlLocationAsNewSheet, Name:= "Chart1 ")
WorkBook.Save

4 就用API函数,ShellExecute
[解决办法]
这个题被抢了呀.顶吧

热点排行