[求助]数据的导出（导入）

northwolves · 发表于 2007-10-2 08:26

发现了二义性的名称（worksheet_Change）:

-----------------------------------------------------

Private Sub worksheet_Change(ByVal Target As Range)

If Target.Address = "$D$38" Then
CommandButton1.Visible = Target <> ""
End If

End Sub

Sub AdjustDTPInSht2()

With Sheet2.DTPicker1
.Font.Size = 12
.Format = dtpLongDate
.Height = Sheet2.Cells(1, 7).Height
.Width = Sheet2.Cells(1, 7).Width + 28
'.Visible = False
End With

End Sub

Private Sub dtpicker1_CloseUp()

Applicahtionenableebernts = False
ActiveCell.Value = Me.DTPicker1.Value
Me.DTPicker1.Visible = False
Application.EnableEvents = True

End Sub

Private Sub worksheet_Change(ByVal Target As Range)

If Target.Count = 1 Then
If Target.Column = 7 And Target = "" Then
Me.DTPicker1.Visible = False
End If
End If

End Sub

northwolves · 发表于 2007-10-2 08:46

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$G$1" Then
With Me.DTPicker1
   If Target <> "" Then
    .Value = Target
   End If
   .Visible = True
   .Top = Target.Top
   .Left = Target.Left
    Application.EnableEvents = False
    ActiveCell.Value = Me.DTPicker1.Value
     Me.DTPicker1.Visible = False
    Application.EnableEvents = True
   End With

End If

End Sub

57wk · 发表于 2007-10-2 12:12

非常感谢northwolves版主的帮助！！！

我是VBA初学者，61楼和62楼的回复我一时不能完全理解，若附加有注释将有助于我和浏览此帖的初学者的学习和提高。

56楼中的问题好像很难解决，请您在有空时看看，帮助解决好吗？不胜感激！！！

northwolves · 发表于 2007-10-2 12:17

61楼的两段黑体代码合并到一块即可:

Private Sub worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$38" Then CommandButton1.Visible = Target <> ""
If Target.Count = 1 Then If Target.Column = 7 And Target = "" Then Me.DTPicker1.Visible = False
End Sub

northwolves · 发表于 2007-10-2 12:22

62楼不就是你的代码第一句限制了地址了么(原来是第7列,改成G1单元格)

57wk · 发表于 2007-10-2 12:58

谢谢northwolves版主！

56楼中的问题很难解决，请您在有空时看看，帮助解决好吗？不胜感激！！！

[此贴子已经被作者于2007-10-2 22:45:22编辑过]

57wk · 发表于 2007-10-14 13:03

northwolves版主：您好！

按照您的指导现在已成功解决名称的二义性问题和只在G1单元格表现日期控件。但又出现了两个新问题：一是不能导出数据，二是日期控件出错；对此问题我花了近两天时间仍不能解决，现将附件传上，请指出错误原因并帮助解决好吗？

gNeaVqk1.rar (37.53 KB, 下载次数: 8)

[此贴子已经被作者于2007-10-14 13:05:31编辑过]

northwolves · 发表于 2007-10-14 14:02

Private Sub Workbook_Open()

With Sheet2.DTPicker1
.Font.Size = 12
.CustomFormat = "yyyy-mm-dd"
.Height = Sheet2.Cells(1, 7).Height
.Width = Sheet2.Cells(1, 7).Width + 28
.Visible = False
End With

End Sub

还有哪句出错?

57wk · 发表于 2007-10-14 15:13

按照68楼的代码修改后，仍然是：不能导出数据（点击数据导出按钮无数据导出）；日期控件出错（提示为：运行时错误“35788”）。请见附件： jUtBZsqt.zip (52.98 KB, 下载次数: 10)

northwolves · 发表于 2007-10-14 21:07

哪个表需要导出?你把出错语句帖上来

		自动登录	找回密码
密码			免费注册