查看: 5400|回复: 5
用VB打开指定文件夹内的指定EXCEL文件怎么写，在线等
阅读权限10
在线时间 小时
求大神帮助，首次发帖，求助呀亲！
我想做一个运行宏就可以读取1个指定文件指定的未打开的EXCEL文件，然后去读取其中某个数据格的数据。
这是我在这里找到的一个前辈的 稍微修改了下。
他是通过一个按钮来选取任意文件夹中的任意EXCEL文件，然后读取工作表“10”内的低36行9列的数据，显示在打开的EXCEL文件的5行6列数据格上。
我现在想把这个开头换掉，换成可以直接运行就把&&路径为 C:\Documents and Settings\Administrator\桌面\实验品\焦页7-1HF井.xls
Public Sub GetData()
Dim sFullName, sFile, sPath, sSheet, sCell As String
Dim sResult As String
sFullName = Application.GetOpenFilename '读取数据源文件路径和名称
If sFullName = False Then Exit Sub& & '如果放弃选择文件，退出程序
Range(&IV2&) = sFullName
Range(&IV3&) = sFullName
Range(&IV4&) = sFullName
Range(&IV3&).Replace what:=&*\&, replacement:=&& '利用通配符*替换路径为空，提取文件名称
Range(&IV4&).Replace what:=Range(&IV3&), replacement:=&&&&'替换上面提出的文件名称为空，提取文件路径
sFile = Range(&IV3&).Value& &'文件名称赋值
sPath = Range(&IV4&).Value& &'文件路径赋值
Range(&IV2:IV4&).ClearContents
sSheet = &10&& &'指定工作表，即在数据源文件中要读取数据的Sheet的名称
sCell = Cells(36, 9).Address '定义需要读取的区域，本例为B1:K100
sResult = GetCellValue(sPath, sFile, sSheet, sCell)
Cells(5, 6) = sResult&&'把读取的数据写入当前文件的B1:K100区域,便于后续查询使用
阅读权限100
在线时间 小时
建议上传表格附件来说明问题。
阅读权限10
在线时间 小时
蓝桥玄霜 发表于
建议上传表格附件来说明问题。
因为我在做的这个表格涉及我们公司机密，就不上传了，其实我想问的就是我用一个打开的EXCEL去读取另一个没打开的EXCEL，然后我希望不需要通过按钮来完成读取，而是运行后就自动读取没打开的那个EXCEL文件的数据：
编写一个打开 C:\Documents and Settings\Administrator\桌面\实验品\焦页7-1HF井.xls的语句。
然后下面我就可以用
sSheet = &10&打开工作表
用sCell = Cells(36, 9).Address
sResult = GetCellValue(sPath, sFile, sSheet, sCell)
Cells(5, 6) = sResult
这句话把这个焦页7-1HF井.xls（这个文件没打开）的'10'工作表的36行9列那个格子的数据读出来显示在本EXCEL的5行6列去
阅读权限100
在线时间 小时
阅读权限10
在线时间 小时
http://club.excelhome.net/thread--1.html
老师，你好，麻烦帮我看看我的文件，我想实现动态查找，相关文件已上传至我的帖子里面了，由于没有权限发信给你，只能在这里回复你，恳求帮忙看看，谢谢
阅读权限95
在线时间 小时
楼主不上传附件不好弄的，如果怕汇密可以制作模拟附件发上来，模拟的附件最好跟真实情况相近
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师> 怎么用VB实现远程桌面并运行指定程序
怎么用VB实现远程桌面并运行指定程序
wslyuyu & &
发布时间： & &
浏览：9 & &
回复：2 & &
悬赏：0.0希赛币
如何用VB实现远程桌面并运行指定程序？大家都知道,windows 有一个功能叫远程桌面连接，比如主机是WINDOWS2003 SERVER，在主机中新建本地用户“LM”，在用户LM的“环境”选项中勾选“登录时启动下列程序”，并在“程序文件名”项中输入“D:\BOOK\BOOK.EXE”,这样用户LM在通过远程桌面登录时就不会直接进入到WINDOWS桌面，而是直接启动BOOK.EXE程序。退出该程序时也就直接退出远程桌面程序了。 &
请问用VB如何实现以上远程桌面（按指定用户名和密码自动登录）并能运行指定程序的功能？我主要目的是想在本地运行远程主机上的程序。
请使用winsock 建立连接，然后远程发送字符串 &your_path\your_exe_filename.exe&, 另一端用 shell &your_path\your_exe_filename.exe& 即可执行。这个方法你要写两个软件，一个在主机运行，另一个在服务器端运行。以下是MSDN的内容要创建一个 TCP 服务器，请按照以下步骤执行：& 创建新的 Standard EXE 工程。将缺省窗体的名称改为 frmServer。将窗体的标题改为“TCP 服务器”。在窗体中放入一个 Winsock 控件，并将它的名字改为 tcpServer。在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData，第二个为 txtOutput。为窗体添加如下的代码。& Private Sub Form_Load()'将 LocalPort 属性设置为一个整数。'然后调用 Listen 方法。tcpServer.LocalPort = 1001tcpServer.Listen& frmClient.Show '显示客户端的窗体。End SubPrivate Sub tcpServer_ConnectionRequest _(ByVal requestID As Long)'检查控件的 State 属性是否为关闭的。'如果不是，'在接受新的连接之前先关闭此连接。If tcpServer.State $<$ sckClosed Then _tcpServer.Close'接受具有 requestID 参数的'连接。tcpServer.Accept requestIDEnd SubPrivate Sub txtSendData_Change()'名为 txtSendData 的 TextBox 控件中'包含了要发送的数据。当用户往文本框中'键入数据时，使用 SendData 方法'发送输入的字符串。tcpServer.SendData txtSendData.TextEnd SubPrivate Sub tcpServer_DataArrival _(ByVal bytesTotal As Long)'为进入的数据声明一个变量。'调用 GetData 方法，并将数据赋予名为 txtOutput& '的 TextBox 的 Text 属性。Dim strData As StringtcpServer.GetData strDatatxtOutput.Text = strDataEnd Sub上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。要创建 TCP 客户端，请按照以下步骤执行：& 在工程中添加一个新的窗体，将其命名为 frmClient。将窗体的标题改为“TCP Client”。在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient。在 frmClient 中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个为 txtOutput。在窗体上放一个 CommandButton 控件，并将其命名为 cmdConnect。将 CommandButton 控件的标题改为 Connect。在窗体中添加如下的代码。& 重点
必须将 RemoteHost 属性值修改为您的计算机的名字。Private Sub Form_Load()
'Winsock 控件的名字为 tcpClient。
'注意：要指定远程主机，可以使用
' IP 地址（例如：&121.111.1.1&），也可以使用
'计算机的“好听的名字”如下所示。
tcpClient.RemoteHost = &RemoteComputerName&
tcpClient.RemotePort = 1001End SubPrivate Sub cmdConnect_Click()
'调用 Connect 方法，初始化连接。
tcpClient.ConnectEnd SubPrivate Sub txtSendData_Change()
tcpClient.SendData txtSend.TextEnd SubPrivate Sub tcpClient_DataArrival _(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strDataEnd Sub
wslyy1992062 & &
12:29:01 & &
& & （0）（0）
你用 RAdmin 或 PCAnyWhere 等工具实现不就可以了，自己写麻烦很多，如果想了解技术，可以看看我资源里的这个代码，不过很粗浅：VB源码：远程桌面显示范例wslzxw & &
12:29:01 & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&> 问题详情
VB6.0集成开发环境可以（)。A．编辑、调试、运行程序，但不能生成可执行程序B．编辑、生成可执行程序、运
悬赏：0&答案豆
提问人：匿名网友
发布时间：
VB6.0集成开发环境可以()。A．编辑、调试、运行程序，但不能生成可执行程序B．编辑、生成可执行程序、运行程序，但不能调试程序C．编辑、调试、生成可执行程序，但不能运行程序D．编辑、调试、运行程序，也能生成可执行程序请帮忙给出正确答案和分析，谢谢！
为您推荐的考试题库
网友回答（共1条）
匿名网友&&&&lv1&&&&提问收益：0.00&答案豆
您可能感兴趣的试题
1当滚动条位于最左端或最上端时，Value属性被设置为(&&)。A．MinB．MaxC．Max和Min之间D．Max和Min之外2在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字符(&&)，表示下一行是当前行的继续。A．一个空格加一划字符(_)B．一个划字符(_)C．直接回车D．一个空格加一个连字符(-)3下列关于图片框的语句中错误的是(&&)。A．Picture1.Picture=Picture2.PictureB．Picture1.Picture=LoadPicture("C:\vb60\Arw04Up.ico")C．Picture1.PrintTab(20)；CurrentX，CurrentYD．Picture1.Stretch=True4设a=4，b=3，c=2，d=1，下列表达式的值是(&&)。&&a＞b+1 Or c＜dAnd b ModcA．TrueB．1C．-1D．0
我有更好的答案
请先输入下方的验证码查看最佳答案
图形验证：
验证码提交中……
享三项特权
享三项特权
享三项特权
选择支付方式：
支付宝付款
郑重提醒：支付后，系统自动为您完成注册
请使用微信扫码支付(元)
支付后，系统自动为您完成注册
遇到问题请联系在线客服QQ：
请您不要关闭此页面,支付完成后点击支付完成按钮
遇到问题请联系在线客服QQ：
恭喜您！升级VIP会员成功
常用邮箱：
用于找回密码
确认密码：如何让VB程序运行后，启动另一个exe程序，并且能够察觉到它的关闭，并且也能够让主程序自己去关闭它？谢谢！
先找到程序的hwnd，其他的就简单了。
回答2：可以用API获得任务管理器的列表内容,然后就可以知道它是否打开或者把它关了.
回答3：如果另一个程序也是由本程序启动,那就好说了,有个超简单的方案.SHELL函数返回的值是目标进程的PID,你只需要使用GetProcessVersion去定期取进程版本号并判断返回值就行了.GetProcessVersion的参数就是一个PID,返回值如果是0那么就是失败,失败的原因中,我们可利用的就是PID非法或PID所关联的进程不存在.例如:　　VB code　　dim lPid as long
lpid=shell(&notepad.exe&)
'不断检测PID
if GetProcessVersion(lpid)=0 then exit do
'目标进程退出后才继续执行
msgbox &目标进程已经退出!&