vbs操作excel的问题,请大家帮忙啊
发布网友
发布时间：2022-06-02 08:25
共4个回答
热心网友
时间：2023-10-13 01:09
'==================方法1：通过剪切板===============
set fso=CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile("123.txt",1)
data=fr.readall
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", data
objIE.Quit
set msword=CreateObject("word.Application")
If msword.Tasks.Exists("Microsoft Excel") = True Then
msword.Tasks("Microsoft Excel").WindowState=wdWindowStateMaximize
End If
msword.Quit
Set msexcel=GetObject(,"Excel.Application")
msexcel.WorkSheets(1).cells(1,1).Activate
msexcel.Activesheet.Paste
'===================方法2：不用剪切板=============
set fso=CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile("123.txt",1)
data=fr.readall
set msword=CreateObject("word.Application")
If msword.Tasks.Exists("Microsoft Excel") = True Then
msword.Tasks("Microsoft Excel").WindowState=wdWindowStateMaximize
End If
msword.Quit
Set msexcel=GetObject(,"Excel.Application")
msexcel.WorkSheets(1).cells(1,1).Activate
msexcel.Activesheet.cells(1,1).value=data
'====================说明==============================
'上面的代码是打开一个同目录的名字是123.txt的文本文件并复制其中内容到指定单元格。
热心网友
时间：2023-10-13 01:09
假设已将txt中的内容复制到剪贴板,则
Set xlApp = GetObject(, "Excel.Application") '假设你已打开excel文件,且只有一个excel进程
Set xlBook = xlApp.ActiveWorkbook '假设当前文件是你要操作的文件
set xlSheet = xlBook.ActiveSheet '假设当前工作表是你要操作的工作表
xlapp.WindowState =-4137
xlsheet.Paste xlsheet.Cells(1, 1) '假设已将txt中的内容复制到剪贴板
set xlsheet=nothing
set xlbook=nothing
set xlapp=nothing
供参考
热心网友
时间：2023-10-13 01:10
只要指定工作簿.工作表.cell(1,1),就一定是你要粘贴的单元格。
为什么一定要用copy，paste呢？为什么不用单元格值赋值呢？
热心网友
时间：2023-10-13 01:10
