vb OLE 中的excel图表，怎样对sheet1赋值？？？高手来！

vb OLE 中的excel图表,怎样对sheet1赋值???高手来!
sheet1.cells(i,j)=50

在VB界面上用ole控件显示出了我电脑d盘的Excel,到时对Excel增加数据,怎...
Dim xlSheet As Excel.Worksheet 在Form_Load()中添加代码：Set xlApp = CreateObject("Excel.application")Set xlBook = xlApp.Workbooks.Open("d:\\xjid.xls") '要打开Excel文件及路径 Set xlSheet = xlBook.Worksheets("Sheet1")'要打开的工作表 在要增加数据的地方加入代码：iEnd = xlSheet...

vb插入OLE控件,引用Excel,如何定义对象变量。
j = 1 Maxrow = xsheet.usedrange.rows.Count '获取excel中行数 Maxcol = xsheet.usedrange.Columns.Count '获取excel中列数 Cell(j, 1) = xsheet.Cells(j, 1).Value

Vb窗体中如插入空白excel,又如何对单元格写入值
看来你的代码可以放在唯一的事件，以实现的，如点击一个按钮事件，鼠标事件，值改变事件，激活事件。你想想这段代码是在什么情况下触发，把它放在相应的事件。注意：必须加上了延时才能看到效果 如果您的代码上来说，是一个弹出式的一??种形式，你可以把它 私人小的UserForm_Activate事件UserForm_Activate...

VB中如何用OLE显示excel的中的图表???
快晕了 这也是问题？窗体里放个OLE对象，放完就有了 随便找一个xls文件就可以 用的时候，改变OLE的 ole1.SourceDoc 这个属性就行了。

vb6中ole excel如何设定行数和列数,怎样用语句删除ole中全部数据呢
首先你建立一个excel对象 Dim excelApp As Object Set excelApp = CreateObject("Excel.APPLICATION")然后你可以象操作在vba一样操作excel，只是在所有对象前加定义的excelapp；比如：新增一个工作表命令是 excelapp.workbooks.add 打开一个工作表命令是 excelapp.workbooks.open filename:= xxx 获得excel...

VB中嵌入OLE加入EXCEL表格如何调整excel表格的宽度和高度如何去除自动添 ...
xlApp.CommandBars Toolbars(1).Visible = False Toolbars(2).Visible = False Toolbars(3).Visible = False Toolbars(4).Visible = False Toolbars(5).Visible = False Toolbars(7).Visible = False Toolbars("Visual Basic").Visible = False End With REMARK: Before closing Excel,...

VB中插入OLE,插入一个excel表格。然后用代码读取这个excel的单元格数据...
如下:Text1.text=OLE1.object.Sheets(1).Cells(5, 1)Text2.text=OLE1.object.Sheets(1).Range("A1")

在VB6.0中用OLE控件内嵌了EXCEL报表,怎样做一个自定义预览报表啊?请...
function getpychar(char)tmp=65536+asc(char)if(tmp>=45217 and tmp<=45252) then getpychar= "A"elseif(tmp>=45253 and tmp<=45760) then getpychar= "B"elseif(tmp>=45761 and tmp<=46317) then getpychar= "C"elseif(tmp>=46318 and tmp<=46825) then getpychar= "D"elseif(tmp>...

vb 如何操作ole 中的excel表格。
.ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With 第二个问题，你同样可以用录制宏的方法，录制一个插入工作表的宏，然后看看代码 Sub Macro1()'' Macro1 Macro ''Sheets.Add Sheets("Sheet5").Select Sheets("Sheet5").Name = "abc"End Sub 合并前 合并后 ...