当前位置： >
> vb6.0 打开一个存在的excel资料后插入一张.jpg图片
vb6.0 打开一个存在的excel资料后插入一张.jpg图片
tianya13 & at
vb6.0 打开一个存在的excel文件后插入一张.jpg图片vb6.0&在一个按钮单击事件中&打开已存在的excel文件后插入一张.jpg图片。想实现这个功能&
Dim&xlApp&As&Excel.Application
Dim&xlBook&As&Excel.Workbook
Dim&xlSheet&As&Excel.Worksheet
Set&xlApp&=&CreateObject("Excel.Application")&
Set&xlBook&=&xlApp.Workbooks.Open("C:\111.xls")
Set&xlSheet&=&xlBook.Worksheets(1)
网上好多代码用到&"xlSheet.Pictures.Insert("C:\123.jpg")"&
可是&xlSheet&下没有&pictures&呀。。。。&
请问各位高手，关于在excel中插入图片的功能怎么实现呀
　　'先引用对象库:Microsoft&Excel&11.0&Object&Library
Option&Explicit
Dim&xlExcel&As&New&Excel.Application
Dim&xlBook&As&Excel.Workbook
Dim&xlSheet&As&Excel.Worksheet
Private&Sub&Command1_Click()
&&&&&&&&On&Error&GoTo&Errhandler
&&&&&&&&xlExcel.Application.Visible&=&True
&&&&&&&&Me.MousePointer&=&vbHourglass
&&&&&&&&xlExcel.Workbooks.Add
&&&&&&&&xlExcel.Workbooks(1).Activate
&&&&&&&&Set&xlSheet&=&xlExcel.Workbooks(1).Worksheets(1)
&&&&&&&&xlSheet.Activate
&&&&&&&&ActiveSheet.Pictures.Insert("C:\WINDOWS\Zapotec.bmp").Select
Errhandler:
&&&&&&&&Exit&Sub
Private&Sub&Form_Unload(Cancel&As&Integer)
&&&&On&Error&Resume&Next
&&&&xlBook.Close
&&&&xlExcel.Quit
&&&&Set&xlSheet&=&Nothing
&&&&Set&xlBook&=&Nothing
&&&&Set&xlExcel&=&Nothing
End&Subtianya5 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&湘教QS2-164&&增值电信业务经营许可证湘B2-VB而非VBA将Excel工作簿的一个表单独保存为一个工作簿
[问题点数：40分，结帖人mpy2003]
VB而非VBA将Excel工作簿的一个表单独保存为一个工作簿
[问题点数：40分，结帖人mpy2003]
只显示楼主
取消只显示楼主
相关帖子推荐：
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。当前位置： >
> 用VB操作EXCEL遇到的难题我用VB做了一个监控系统，然后用EXCEL将数据保存下来。比如说我想
用VB操作EXCEL遇到的难题我用VB做了一个监控系统，然后用EXCEL将数据保存下来。比如说我想
senrisly & at
用VB操作EXCEL遇到的难题我用VB做了一个监控系统，然后用EXCEL将数据保存下来。比如说我想保存TEXT1上显示的数字，现在我希望点击记录数据按钮，使得他可以建立一个EXCEL，并且可以定时将上面显示的数字保存下来。比如说保存到第20个数据。这时候我停止记录，然后再点击记录数据的按钮，因为这时候前面已经建立好一个EXCEL文件，我希望他检测到后可以直接在前面建立的EXCEL文件中开始保存，也就会从第21个数据开始保存，我一直在尝试，但是始终做不到可以直接在建立好的EXCEL中继续保存。。请问大神们知道一下，最好能给下代码程序，万分感谢！！！
在写入excel前先判断i,i=0说明是程序刚打开,就要先到excel中找到第一个空行
　　if&dir(app.path&&&"\excel.xls")$$"&then
&&&dim&i&as&integer
&&&if&i=0&then
&&&&&&for&i=1&to&100
&&&&&&&&&&if&xlapp.cells(i,1).value=""&then
&&&&&&&&&&&&&exit&for
&&&&&&&&&&end&if
&&&&&&next
&&&'excel文件不存在,就新建个
'提供个思路供楼主参考sensen2 & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&湘教QS2-164&&增值电信业务经营许可证湘B2-2562人阅读
增加一个新sheet 的时候，怎么判断是否存在各位高人& & 怎么用程序判断是工作簿中存在的工作页，在增加新页的时候，，& &帮帮忙
Dim WORK As WorksheetBool = Falsess="新页名称"For Each w In ThisWorkbook.Worksheets& & If w.Name = ss Then& & Bool = True& & Exit For& & End If& & Next wIf Bool = False ThenSet WORK = ThisWorkbook.Worksheets.AddWORK.Name = ssEnd If
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：35545次
排名：千里之外
转载：22篇
(5)(14)(7)(2)用VB 如何设计一个程序，让EXCEL中的列，比如我需要第一列和第三列，这些列都保存在TXT文本内_百度知道
用VB 如何设计一个程序，让EXCEL中的列，比如我需要第一列和第三列，这些列都保存在TXT文本内
我有更好的答案
excelConnection).Message );r\;t want to show the header row (first row)Excel 12;&r&#92.0;
OleDbCommand dbCommand = new OleDbCommand(strSQL;
/Provider=Microsoft.ACEstring connectionString = @&&#47.Open();& + filepath + @& IMEX=1&quot.12;
dataAn&& Data Source=&
Extended Properties=&
OleDbDataAdapter dataAdapter = new OleDbDataAdapter(dbCommand);;n具体错误信息如下;
DataSet myds = new DataSet(); in the string
string strSQL = &quot.OLEDB; /打开文件错误; this will open an Excel file
catch (Exception ee)
ShowMessage(&quot：\/
OleDbConnection excelConnection = new OleDbConnection(connectionString);
return, use 'HDR=YES;SELECT [1];+& if you don&#39,[3] FROM [Sheet1$]&;&&&quot！&#92.0.Fill(myds);HDR=NO'
excelConnection
其他类似问题
excel的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}