实习战争:请帮助我几个星期:( [英] Internship War: Please Help Me been weeks :(

问题描述

要将一个excel文件单元格的读数复制到另一个excel模板中.
细胞到细胞的复制粘贴.

下面只是为了展示这些声明的含义.

TO copy one excel file cell reading to another excel template.
Cell to cell copypaste.

Below just to show what those declaration means..

---------------------------------------------------------
Public Class TCombMerge
    Implements ICombMerge

    Dim sHT As String = String.Empty 'header top
    Dim sHB As String = String.Empty 'header bottom
    Dim sRT As String = String.Empty 'report top
    Dim sRB As String = String.Empty 'report bottom
    Dim sTF As String = String.Empty 'template file

   Function MergeFiles() As Long Implements ICombMerge.MergeFiles
        Dim retVal As Long = 0, i As Long = 0, j As Long = 0
        Dim sFiles As ArrayList = Nothing, oExc As Object = Nothing
        Dim oWbkSrc As Object = Nothing, oWbkDst As Object = Nothing
        Dim oWshSrc As Object = Nothing, oWshDst As Object = Nothing
-----------------------------------------------------------

-------------------------------------------------- ---------
从这里开始到结束.
这是正确的吗?是否有简化代码的空间.
例如:停下来直到没有读数.

-----------------------------------------------------------
Begin from here to end.
is this right? is there room to simplify the code.
EXAMPLE: stop until there are no reading.

--REPORT TOP & BOTTOM ----

---------------------------
-----BEGIN FOR TOP ------
--------------------------

'open source file Report Top / OPEN ONCE
oWbkSrc = oExc.Workbooks.Open(sRT) 

'ReportTop:A2->I2 copy to Template:A16->I16 
For i = 2 
j = i + 14 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString))
 
'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A"& j.ToString).offset(0,1)) 

----NEXT, SKIP 1 CELL THEN----


'ReportTop:A3->I3 copy to Template:A18->I18
For i = 2 
j = i + 16 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString))
 
'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A"& 
j.ToString).offset(0,1)) 


----NEXT, SKIP 1 CELL THEN----

'ReportTop:A4->I4 copy to Template:A20->I20
For i = 2 
j = i + 18 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString))
 
'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A"& j.ToString).offset(0,1)) 



----NEXT, SKIP 1 CELL THEN----

'ReportTop:A5->I5 copy to Template:A22->I22
For i = 2 
j = i + 20 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString))
 
'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A"& j.ToString).offset(0,1))



----NEXT, SKIP 1 CELL THEN----

'ReportTop:A7->I7 copy to Template:A24->I24
For i = 2 
j = i + 22
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString))
 
'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A"& j.ToString).offset(0,1))


LOOP UNTILL THERE ARE NO READING.
---------------------------
-----BEGIN FOR BOTTOM ------
--------------------------

'open source file Report Bottom
oWbkSrc = oExc.Workbooks.Open(sRB)//OPEN ONCE 

'ReportBottom:A2->I2 copy to Template:A17->I17 
For i = 2 
j = i + 15 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(1,0) 

'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(0,1)) 


-----------BEGIN FROM 1st SKIPPED CELL----------


'ReportBottom:A3->I3 copy to Template:A19->I19 
For i = 2 
j = i + 17 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(1,0) 

'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(0,1)) 



-----------NEXT 2nd SKIPPED CELL-----------


'ReportBottom:A4->I4 copy to Template:A21->I21 
For i = 2 
j = i + 19 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(1,0) 

'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(0,1)) 


-----------NEXT 3rd SKIPPED CELL-----------


'ReportBottom:A5->I5 copy to Template:A23->I23 
For i = 2 
j = i + 21 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(1,0) 

'corresponding row of B,C,D,E,F,G,H,I 
oWshSrc.Range("A"& i.ToString).Copy(oWshDst.Range("A" & j.ToString).offset(0,1)) 


LOOP UNTILL THERE ARE NO READING.

推荐答案

不确定您的意思是什么.如果您具有业务逻辑，则可以使用程序员的简单格式将它们编写为模块/函数.

Not sure what do you mean by simplification. If you have the business logic, you can write them in module/function in programmers'' simplicity format.

这篇关于实习战争:请帮助我几个星期:(的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！