프로그래밍을 일상 생활속으로

Late Binding을 하게 되면 사용자 머신에 설치된 Excel의 버젼에 상관없이 사용할 수 있게 되어 유용합니다. 참조 사이트 : http://www.codeproject.com/KB/cs/How2LateBinding.aspx 사용 법: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 /// <summary>   /// export data to excel file   /// </summary>   /// <param name="sender"></param>   /// <param name="e"></param>   private   void  btnExport_Click( object  sender, EventArgs e)   {        int  iExlStartRow  =   2  , iNextColumn  =   10 ;        try       {          CExcelAuto...

- 코드 - Dim XL1, XL2 As Application Dim wb1, wb2 As Workbook Dim s1, s2 As Worksheet Set XL1 = CreateObject("Excel.Application") XL1.Visible = False Set wb1 = XL1.Workbooks.Open(txtOldFile.Text) 'material balance file; Set XL2 = CreateObject("Excel.Application") XL2.Visible = False Set wb2 = XL2.Workbooks.Open(txtNewFile.Text) 'equipment list file' 'material balance sheet를 eqlist의 제일 마지막에 복사' XL1.Worksheets("Material").UsedRange.Copy Set NewSheet = XL2.Worksheets.Add(After:=XL2.Worksheets(XL2.Worksheets.Count)) NewSheet.Range("A2").PasteSpecial Paste:=xlValues NewSheet.Name = "Material" XL2.DisplayAlerts = False wb2.SaveAs (txtNewFile.Text) XL2.DisplayAlerts = True XL1.DisplayAlerts = False XL1.Quit XL2.Quit Set XL1 = Nothing Set XL2 = Nothing