当前位置: 代码迷 >> VB Dotnet >> excel宏代码怎么应用到vb.net中
  详细解决方案

excel宏代码怎么应用到vb.net中

热度:179   发布时间:2016-04-25 02:01:47.0
excel宏代码怎样应用到vb.net中
在excel中录制好了宏,怎么样让其在vb.net中对该excel进行操作,得出相应的结果




Sub fourtime()
'
' fourtime 宏
'

'
    ActiveCell.FormulaR1C1 = "sku"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=SUM(R2C[-1]:RC[-1])-RC[-1]"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A1753")
    ActiveCell.Range("A1:A1753").Select
    ActiveCell.Offset(-1, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "sku排布"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ROW()<=SUM(C[-2])+1,LOOPKUP(ROW()-2,C[-1],C[-3]),"""")"
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ROW()<=SUM(C[-2])+1,LOOPKUP(ROW()-2,C[-1],C[-3]),"""")"
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ROW()<=SUM(C[-2])+1,LOOKUP(ROW()-2,C[-1],C[-3]),"""")"
    ActiveCell.Select
    Selection.Copy
    Application.Goto Reference:="R2C4:R4500C4"
    ActiveSheet.Paste
End Sub
------解决思路----------------------
VB.NET引用excel,然后对这些代码适当改写。
------解决思路----------------------
操作Excel 的COM组件

参考:
How to: Access Office Interop Objects by Using Visual C# Features (C# Programming Guide)
https://msdn.microsoft.com/en-us/library/dd264733.aspx

你需要把VBA代码翻译成C#代码。
  相关解决方案