回到马鞍上…Excel、扳手、VBA解决方案…F1
大家好，又回到马鞍上了。有些老板……不好意思，有些工程师讨厌你告诉他们错了。哎呀，等一下，我错了…我是cad的家伙。该死，忘了那部分。哦，好吧，生活，学习，并向更大更好的事情前进过去，我使用（wfcadtools\u dot\u com）的扳手导入和修改excel电子表格，效果很好。我现在有一些用户在版本2006和很快2007&；2008年，他们可以#039；我不知道为什么，也没有机会去探究原因。我希望可能有人知道这个问题，如果是的话，如果他们找到了解决方法。我只是在周五下午才知道这件事，如果可以的话；我可能会寻求另一种选择。希望它不会花费buko美元。我已经查看了wfcadtools\u dot\u com网站，似乎只有2004年的可用版本。有人知道这方面的信息吗？是否有更好的低成本/无成本替代excel电子表格导入/修改…等…等…
提前感谢。
一旦你知道如何以一种合适的方式打开te excel后期绑定并再次很好地关闭它，你就可以通过VBA或VB、C++和其他语言来做任何事情
导入和导出数据可以通过这种方式完成，而无需支付软件费用，但这将耗费时间
飞行中的基础知识：Option Explicit
Const WorkBookName = "TestThis.Xls"
Const ImportPath = "C:\Test\"
Const DataSheet = "ImportDataSheet"
Sub ExclHandler()
Dim Excl As Excel.Application
Dim Wb As Excel.Workbook
Dim Ws As Excel.Worksheet
Dim ExcelWasOpen As Boolean
Dim WorkBookFound As Boolean
'Get an instance of excel if it is open that one to save resources.
On Error GoTo NoExcelOpen
ExcelWasOpen = True
Set Excl = GetObject(, "Excel.Application")
On Error GoTo 0
'Search for the Workbook if Excel was already open (it might be)
If ExcelWasOpen Then
For Each Wb In Excl.Workbooks
If Wb.Name = WorkBookName Then
WorkBookFound = True
Exit For
End If
Next
If Not WorkBookFound Then
Set Wb = Excl.Workbooks.Open(ImportPath & WorkBookName)
End If
Else
Set Wb = Excl.Workbooks.Open(ImportPath & WorkBookName)
End If
Set Ws = Wb.Sheets(DataSheet)
'Do whatever you want read or write to it.
'make it look nice
'to prove my point write something
Ws.Cells(1, 1).Value = "Driesign.nl"
'and read it into a msgbox
MsgBox Ws.Cells(1, 1).Value, vbCritical, "Stupid Test"
'............
'............
'............
'............
'............
'finish by cleaning up
Set Ws = Nothing
If workbookwasopen Then
Wb.Save
Else
Wb.Close True, "Optional Alternative Filename.xls"
End If
Set Wb = Nothing
If Not ExcelWasOpen Then
Excl.Quit
End If
Set Excl = Nothing
Exit Sub
NoExcelOpen:
ExcelWasOpen = False
Set Excl = CreateObject("Excel.Application")
Resume Next
End Sub
玩得开心 如果angelfire没有打开我的网站，我可以指引你去那里
给我写一封带有你电子邮件地址的PM，我可以给你发送Autoxedule
它只做你想做的事情，但是当进行更改时，用户必须手动更新（按Excel中的按钮）。 我给你的方法的乐趣在于随时更新和控制excell
但是你需要参与vb（a）来做到这一点
页:
[1]