vbs操作excel的问题，请大家帮忙啊

Posted 2023-04-05

我的vbs问题很简单。就是我已经打开了一个excel表格，现在使它最小化，然后利用一个vbs程序使excel表格最大化后复制一个txt上的内容到excel表格中的sheet1的cell（1，1）中，为了确定粘贴到的位置一定是cell（1,1），我必须每次都要选中sheet1中的cell（1,1）再粘贴，基本步骤就是复制内容，激活表格最大化，选中cell(1,1),粘贴内容，保存。
现在有一个问题很棘手，就是无法选中cell（1,1），看了很多vbs的书，之后用命令open这个表格之后才能选中，而我是激活表格，所以总是无法选中，请你帮我想想怎么解决吧，谢谢。
vbs，确定是vbs

试试我的方法：

'==================方法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的文本文件并复制其中内容到指定单元格。 参考技术A 不知道txt是什么程序中的控件,
假设已将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

供参考 参考技术B 楼上答案是正确的。

只要指定工作簿.工作表.cell(1,1),就一定是你要粘贴的单元格。

为什么一定要用copy，paste呢？为什么不用单元格值赋值呢？ 参考技术C 楼主说的是vba吧？

请大家帮忙，这个软件如何使用啊？

这个软件（video saver）好久不用了，忘记了，请高手指教！

imovie怎么加自定义音乐详细过程～
第一步：先下载 videosaver 这个软件

第二步：打开网易云，QQ音乐，酷狗等你的音乐播放器，找到一首喜欢的歌曲，点击右上角分享→复制链接

第三步：复制好的音乐链接，打开微信任意一个对话框发送，点击蓝色部分，复制链接下来

第四步：打开videosaver，左上角+♫这个按钮，然后点DownloadBrowser这个按钮

第五步：出现一个搜索框，先删除里面的一串链接，然后粘贴你自己的音乐链接进去，点击搜索或者前往

第六步：会出现一个页面，点击Download这个按钮

第七步：返回，点击下方一排第二个songs这个按钮，也可以不返回直接第八步

第八步：点击已经下载好的音乐链接，点右下角的分享按钮

第九步：点击open in 进入你要分享的剪辑软件里

第十步：自动跳转到你的剪辑软件，歌曲链接已经导入了，然后+自己的视频就ok了，做好点击储存就是没有水印的自定义音乐视频～ 参考技术A 上网上下载一个教程就行了。 参考技术B 软件会有好坏之分，人有优劣之感，如果你不需要这个软件可以放弃 参考技术C 去官网查看操作流程就可以了 参考技术D 邦邦老朋友把绘制图案锁🔒打开