请教版主蓝桥玄霜(问题已解决)

zhouxiao

请教：
             我想用EXCEL实现下面2个的功能，第1个功能，基本能实现，但第2个功能不知道怎么写了，请各位同学给予帮助。
             涉及到的表格有：A表格(含运算公式)、B表格(用户窗体)、C表格(待打开的指定路径下的文件).

第1个功能： 通过用户窗口，打开指定路径的文件。即打开C表格
公式：

Private Sub 确定_Click()
    If 内容.Value = "" Then
        MsgBox "文本框里没有输入任何内容！"
        Exit Sub      '退出sub过程，不再执行下面的语句
    End If
    Workbooks.Open Filename:=内容.Value
    Windows("用户窗体.xls").Activate
End Sub

第2个功能：套用A表格    Sheet1  中单元格Q6:R7 的公式,在C表格中的  Sheet 2  工作表单元格Q6:R7 中运算.
公式:(下面不知道怎么写了)

zhouxiao

为什么没有一个人理?是写得不清楚嘛?

wlianke

及时解决问题最好的办法就是上传附件，在附件里面把需要的功能和欲达到的目的说明！老师们才会帮忙解决啊！

蓝桥玄霜

1,请不要用点名的方式求助，一是不太礼貌；二是阻止了其它会员的帮助。
2，请用表格附件来说明问题。

zhouxiao

对不起,我给各位道歉,我下次会注意
附件已上传,请给予帮助,谢谢

zhouxiao

蓝桥玄霜 发表于 2011-11-10 14:42
1,请不要用点名的方式求助，一是不太礼貌；二是阻止了其它会员的帮助。
2，请用表格附件来说明问题。

{:soso_e117:}抱歉

zhouxiao

zhouxiao 发表于 2011-11-10 16:39
抱歉

我没找到在哪里改,怎么样能改?

蓝桥玄霜

未接触过服务器，如果能把文件收集到你的文件夹里面，就可以运用多工作簿提取数据了。

zhouxiao

蓝桥玄霜 发表于 2011-11-10 17:15
未接触过服务器，如果能把文件收集到你的文件夹里面，就可以运用多工作簿提取数据了。

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+u
'
    Workbooks.Open Filename:= _
        "\\Fileserver\业务科\装箱清单\其他客户清单2011-8-1日接收开始\电梯\10月\XODT27336.xls"
    Sheets("电器箱").Select
    ActiveWindow.SmallScroll Down:=-63
End Sub


上面这是我通过录制宏的方法,得到的代码.
我希望能够把"\\Fileserver\业务科\装箱清单\其他客户清单2011-8-1日接收开始\电梯\10月\XODT27336.xls"--------这一段数据,做一个外接的用户窗口,否则,XODT27336变成XODT12345以后,我要进行到代码窗口里手工去改.
太浪费时间.

蓝桥玄霜

1. Private Sub 确定_Click()
   
2.     If 内容.Value = "" Then
   
3.         MsgBox "文本框里没有输入任何内容！"
   
4.         Exit Sub      '退出sub过程，不再执行下面的语句
   
5.     End If
   
6.     Dim ph$
   
7.     我的窗体.Hide
   
8.     ph = "\\Fileserver\业务科\装箱清单\其他客户清单2011-8-1日接收开始\电梯\10月"
   
9.     Workbooks.Open Filename:=ph & 内容.Value
   
10.     Windows("用户窗体.xls").Activate
    
11. End Sub
    

复制代码

还要增加你的其它代码。