Mình thấy trên mạng có video nhập xuất tự động từ Excel sang Sap như video sau http://www.youtube.com/watch?v=akfpYcjQG1k Bạn nào biết cách làm VBA như vậy thì xin chỉ giáo nhé, mình đang làm đồ án tốt nghiệp về đề tài này, chuyên ngành tin học XD. Thanks mọi người nhiều!
Gỏi về nhập xuất tự động từ excel sang sap2000 (1 người xem)
- Thread starter boy0110
- Ngày gửi
Người dùng đang xem chủ đề này
hungpecc1
Thành viên gắn bó
- Tham gia
- 24/8/12
- Bài viết
- 1,709
- Được thích
- 2,304
- Giới tính
- Nam
Trước hết bạn mở file sap --> export excel ---> sẽ biết được cấu trúc của file excel Import như thế nào !
--> dùng VBA xây dựng file import.xls
Để mở chương trình sap từ VBA dùng lệnh sau :
PHP:
Sub GPE()
CreateObject("Shell.Application").Open "C:\Program Files\Computers and Structures\SAP2000 14\Sap2000.exe"
End SubSap không hỗ trợ API ---> sau khi mở sap mình vẫn phải FIle --> Import đến file excel thủ công , còn trong clip của bạn : chương trình sap tự động import đến file excel ? <------ cái này mình chưa gặp bao giờ
Mình tra trên mạng thấy có clip vậy nên muốn thử xem, chứ còn Import/ Export mình đã xây dựng được 1 chương trình hoàn chỉnh rồi. Mình chỉ muốn tự động hóa như clip, khóa trước có 1 anh làm được khung phẳng y như clip,mà mình không liên hệ được. Giờ phải nhờ đến các cao thủ để thiết kế dầm :'(
hungpecc1
Thành viên gắn bó
- Tham gia
- 24/8/12
- Bài viết
- 1,709
- Được thích
- 2,304
- Giới tính
- Nam
Theo như bạn nói , bạn đã xây dựng được code Import, export ---> tức là chỉ cần mở sap lên thì chương trình sẽ tự import file xls đã được chỉ định sẵn --> hay như thế nào ?
hungpecc1
Thành viên gắn bó
- Tham gia
- 24/8/12
- Bài viết
- 1,709
- Được thích
- 2,304
- Giới tính
- Nam
Thì như mình nói SapV14 có hỗ trợ API <-- Bạn có thể tham khảo thêm trong file Sap API documentation.chm:
Lần chỉnh sửa cuối:
hungpecc1
Thành viên gắn bó
- Tham gia
- 24/8/12
- Bài viết
- 1,709
- Được thích
- 2,304
- Giới tính
- Nam
Sap2000 có hỗ trợ API, để kết nối từ VBA trong excel với sap2000 bạn tham khảo đoạn code sau ( nhớ trong tool - reference chon sapV12 bạn nhé[GPECODE=vb]Sub MyProgram()
'dimension variables
Dim SapObject As SAP2000.SapObject
Dim SapModel As cSapModel
Dim ret As Long
'create an instance of the Sap2000 object
Set SapObject = New SAP2000.SapObject
'start the Sap2000 application
SapObject.ApplicationStart
'create the SapModel object
Set SapModel = SapObject.SapModel
'initialize model
ret = SapModel.InitializeNewModel
'call Sap2000 API functions here to perform desired tasks
'in this example a new 2D frame is created from template
ret = SapModel.File.New2DFrame(PortalFrame, 3, 124, 3, 200)
'close the Sap2000 application, if desired
SapObject.ApplicationExit False
'set the objects to Nothing
'at the end of your program ALWAYS terminate the objects in this manner
Set SapModel = Nothing
Set SapObject = Nothing
End Sub
[/GPECODE]
'dimension variables
Dim SapObject As SAP2000.SapObject
Dim SapModel As cSapModel
Dim ret As Long
'create an instance of the Sap2000 object
Set SapObject = New SAP2000.SapObject
'start the Sap2000 application
SapObject.ApplicationStart
'create the SapModel object
Set SapModel = SapObject.SapModel
'initialize model
ret = SapModel.InitializeNewModel
'call Sap2000 API functions here to perform desired tasks
'in this example a new 2D frame is created from template
ret = SapModel.File.New2DFrame(PortalFrame, 3, 124, 3, 200)
'close the Sap2000 application, if desired
SapObject.ApplicationExit False
'set the objects to Nothing
'at the end of your program ALWAYS terminate the objects in this manner
Set SapModel = Nothing
Set SapObject = Nothing
End Sub
[/GPECODE]
Mình nhập xuất được dữ liệu rồi, bạn có biết code xuất dữ liệu từ SAP ra Excel từ 1 bút bấm không nghiwax là minh tạo 1 cái nút rùi chỉ cần bấm là nó tự xuất kết quả ra excel ấy??? nếu có bạn có thể post lên cho anh em tham khảo với. minh đang mờ cái đó
