UC知道EXCEL控件问题
来源：百度知道 编辑：UC知道 时间：2024/05/31 21:47:11
我在excel里有一个textbox控件，还有一个另存为的控件，我想在点击另存为控件的时候，让textbox里的信息直接显示为另存为文件的默认文件名，语句可以实现吗？谢谢！！
谢谢您的回答，我现在问题还没有解决，我的另存为空间为commandbutton,编辑时是以Private Sub CommandButton1_Click()开始的，不是saveasdate1开始，请指教！
而且X = Selection.Characters.Text行总显示对象不支持属性！
谢谢您的回答，我现在问题还没有解决，我的另存为空间为commandbutton,编辑时是以Private Sub CommandButton1_Click()开始的，不是saveasdate1开始，请指教！
而且X = Selection.Characters.Text行总显示对象不支持属性！
首先, 一定要清楚textbox 的名称,
假设 名称是 Text Box 1 或称 Shapes(1)
Sub SaveAsDate1()
ActiveSheet.Shapes("Text Box 1").Select
X = Selection.Characters.Text
[A1].Select
FileName = Application.GetSaveAsFilename(X & ".xls")
If FileName = "False" Then Exit Sub
ActiveWorkbook.SaveAs FileName
Beep
End Sub
第1行改成以下亦可
ActiveSheet.Shapes(1).Select
补充:
每一个插在工作表上的 图画, 控件, 图表, 文字方块 或任何对象, 都有一个名称, 宏才能分辨, 道理与单元格名称是 A1, B1 还是C1一样, 在代码上一定要说清楚。你现时好像尚未知你的控件(即你所说的Testbox)的名字是什么?
因你没有说出textbox 的名字, 及你的工作表是已插入了多少个对象, 我只能假设名字 是 "Text Box 1"
我估计 你的 Textbox 是另有其名. 请点选该控件, 然后看左上角的名称栏是什么名字, 或用录制宏先找出控件名字
x = Selection.Characters.Text, 这句是没有错
由于我不想 Overwrite 你原有 Private Sub CommandButton1_Click() 的代码, 所以我用另一宏名称, 请右击控件, 将指定宏的名称更改便可