none
Publish failed with the following error: Could not find file 'C:\Program Files\Microsoft SDKs\Windows\v7.0A\Bootstrapper\Packages\WindowsInstaller4_5\WindowsXP-KB942288-v3-x86.exe RRS feed

  • Question

  • I am getting this error .Please help

    Publish failed with the following error: Could not find file 'C:\Program Files\Microsoft SDKs\Windows\v7.0A\Bootstrapper\Packages\WindowsInstaller4_5\WindowsXP-KB942288-v3-x86.exe'.        1    1    APPLICATION_Educount

    Monday, February 11, 2013 2:44 PM

All replies

  • Please explain what you are trying to publish. The details are essential to providing you with useful suggestions.

    Also, it appears the issue is a missing Windows XP Windows Installer 4.5 KB. If so, how is your problem related to .NET Framework setup (this forum's topic)?

    If you need Windows Installer 4.5:

    http://www.microsoft.com/downloadS/details.aspx?familyid=5A58B56F-60B6-4412-95B9-54D056D6F9F4&displaylang=en,

    Monday, February 11, 2013 2:56 PM
  • Thanks for the reply

    I have already installed the pre requiste.And even before your reply i even published successfully.But when i try to install the form project to another computer .It shows the exception.It is something about enabling JIT.
    My project code is below .The project works fine on my computer .My computer has windows 7 32 bit installed but when i try to install it on 64 bit it throughs and exception .I am using a vb form to connect to excel and insert data through form a simple one .I dont use any data source

    Class frmEducountfinal
        Private Sub NAR(ByVal MyExcel As Object)
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws As Microsoft.Office.Interop.Excel.Worksheet
            ws = wb.Sheets("gp1")
            Try
                While (System.Runtime.InteropServices.Marshal.ReleaseComObject(MyExcel) > 0)
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(ws)
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(wb)
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(MyExcel)
                    GC.Collect()
                    GC.WaitForPendingFinalizers()
                End While
            Catch
            Finally
                MyExcel = Nothing
            End Try
        End Sub
    
     
        Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click, txtBa.BindingContextChanged
            Dim MyExcel As Microsoft.Office.Interop.Excel.Application
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            MyExcel.Visible = False
            MyExcel.EnableEvents = False
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws As Microsoft.Office.Interop.Excel.Worksheet
            ws = wb.Sheets("gp1")
            ws.Unprotect(123)
            Lbl_ErrorMsg.Visible = False
            Dim firstNum, secondNum, total As Double
            Try
                firstNum = txtBp.Text
                secondNum = txtGp.Text
                total = firstNum / secondNum
                Lbl_Tt.Text = total
    
            Catch ex As Exception
                Lbl_Tt.Text = "Error"
                Lbl_ErrorMsg.Visible = True
                Lbl_ErrorMsg.Text = " One of the entries is not a number! Try again!"
            End Try
            ws.Select()
            With ws
                ws.Unprotect(123)
                Dim irow As Long
                irow = ws.Range("A65536").End(Excel.XlDirection.xlUp).Offset(1, 0).Select
                irow = ws.Range("A" & ws.Rows.Count).End(Excel.XlDirection.xlUp).Row + 1
                ws.Cells(irow, 1).Value = Me.txtSn.Text
                ws.Cells(irow, 2).Value = Me.txtNa.Text
                ws.Cells(irow, 3).Value = Me.txtGpf.Text
                ws.Cells(irow, 4).Value = Me.txtBa.Text
                ws.Cells(irow, 5).Value = Me.txtBn.Text
                ws.Cells(irow, 6).Value = Me.txtAp.Text
                ws.Cells(irow, 7).Value = Me.txtBp.Text
                ws.Cells(irow, 8).Value = Me.txtGp.Text
                ws.Cells(irow, 9).Value = (ws.Cells(irow, 7).Value + ws.Cells(irow, 8).Value)
                Me.Lbl_Tt.Text = ws.Cells(irow, 9).Value
                ws.Cells(irow, 10).Value = Me.txtPp.Text
                ws.Cells(irow, 11).Value = Val(Me.txtDaC.Text) / 100 * (ws.Cells(irow, 7).Value)
                txtDa.Text = ws.Cells(irow, 11).Value
                ws.Cells(irow, 12).Value = Me.txtMa.Text
                ws.Cells(irow, 13).Value = Me.txtRa.Text
                ws.Cells(irow, 14).Value = Me.txtCca.Text
                ws.Cells(irow, 15).Value = Me.txtOa.Text
                ws.Cells(irow, 16).Formula = (ws.Cells(irow, 9).Value + ws.Cells(irow, 10).Value + ws.Cells(irow, 11).Value + ws.Cells(irow, 12).Value + ws.Cells(irow, 13).Value + ws.Cells(irow, 14).Value + ws.Cells(irow, 15).Value)
                Me.Lbl_Gt.Text = ws.Cells(irow, 16).Value
                ws.Cells(irow, 17).Value = Me.txtFa.Text
                ws.Cells(irow, 18).Formula = (ws.Cells(irow, 16).value - ws.Cells(irow, 17).Value)
                Me.Lbl_Naf.Text = ws.Cells(irow, 18).Value
                ws.Cells(irow, 19).Value = Me.txtSf.Text
                ws.Cells(irow, 20).Value = Me.txtRf.Text
                ws.Cells(irow, 21).Value = Me.txtSi1.Text
                ws.Cells(irow, 22).Value = Me.txtSi2.Text
                ws.Cells(irow, 23).Value = Me.txtSi3.Text
                ws.Cells(irow, 24) = (ws.Cells(irow, 19).Value + ws.Cells(irow, 20).Value + ws.Cells(irow, 21).Value + ws.Cells(irow, 22).Value + ws.Cells(irow, 23).Value)
                Me.Lbl_Ts.Text = ws.Cells(irow, 24).Value
                ws.Cells(irow, 25).Formula = (ws.Cells(irow, 18).Value - ws.Cells(irow, 24).Value)
                Me.Lbl_Nad.Text = ws.Cells(irow, 25).Value
                ws.Cells(irow, 26).Value = ""
                ws.Cells(irow, 27).Value = Me.txtHl.Text
                ws.Cells(irow, 28).Value = Me.txtCsc.Text
                ws.Cells(irow, 29).Value = Me.txtMr.Text
                ws.Cells(irow, 30).Value = Me.txtIt.Text
                ws.Cells(irow, 31).Value = (ws.Cells(irow, 25).Value - (ws.Cells(irow, 26).Value + ws.Cells(irow, 27).Value + ws.Cells(irow, 28).Value + ws.Cells(irow, 29).Value + ws.Cells(irow, 30).Value))
                Me.Lbl_Np.Text = ws.Cells(irow, 31).value
                MessageBox.Show("The last row in Col A of Sheet1 which has data is " & irow)
                MyExcel.EnableEvents = True
                MyExcel.Visible = True
                MyExcel.DisplayAlerts = False
                MyExcel.SaveWorkspace()
                ws.Protect(123)
                MyExcel.GetSaveAsFilename("D:\azeo")
                wb.Close(True)
                wb = Nothing
                MyExcel.Quit()
                MyExcel = Nothing
                GC.Collect()
                GC.WaitForPendingFinalizers()
            End With
            Me.Update()
            Exit Sub
            MyExcel = MyExcel.release
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ws)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(wb)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(MyExcel)
            ws = Nothing
            wb = Nothing
            MyExcel = Nothing
            MyExcel.Quit()
            GC.Collect()
            GC.WaitForPendingFinalizers()
            If System.Runtime.InteropServices.Marshal.AreComObjectsAvailableForCleanup() = True Then
                System.Runtime.InteropServices.Marshal.CleanupUnusedObjectsInCurrentContext()
            End If
            Exit Sub
            Me.Update()
        End Sub
        Friend WithEvents Lbl_ErrorMsg As System.Windows.Forms.Label
        Private Sub hScroller()
            Dim hScroller As New HScrollBar()
            hScroller.Height = 69
    
            hScroller.Width = 400
            Me.Controls.Add(hScroller)
            hScroller.Dock = DockStyle.Bottom
    
            hScroller.Width = 250
    
            hScroller.Height = 200
            hScroller.Name = "HScrollBar1"
            hScroller.Minimum = 0
    
            hScroller.Maximum = 100
    
            hScroller.Value = 40
        End Sub
    
       
    
    
    
    
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim MyExcel As Microsoft.Office.Interop.Excel.Application
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            MyExcel.EnableEvents = False
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws As Microsoft.Office.Interop.Excel.Worksheet
            ws = wb.Sheets("gp1")
            ws.Select()
            With ws
                Dim irow As Long
                irow = ws.Range("A65536").End(Excel.XlDirection.xlUp).Offset(0, 0).Select
                irow = ws.Range("A" & ws.Rows.Count).End(Excel.XlDirection.xlUp).Row - 0
                MsgBox(" The Last Record Number is " & (wb.Application.Cells(irow, 1).Value))
                MyExcel.EnableEvents = True
                MyExcel.Visible = False
                MyExcel.DisplayAlerts = False
                MyExcel.SaveWorkspace("D:\azeo")
                ws.Protect(123)
                MyExcel.Quit()
                ws = Nothing
                wb = Nothing
                MyExcel = Nothing
                irow = Nothing
                GC.Collect()
                GC.WaitForPendingFinalizers()
            End With
            Me.Update()
            Exit Sub
        End Sub
    
        Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
            Me.Close()
        End Sub
    
        Private Sub BtnSs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSs.Click
            Dim MyExcel As Microsoft.Office.Interop.Excel.Application
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            MyExcel.EnableEvents = False
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws1 As Microsoft.Office.Interop.Excel.Worksheet
            ws1 = wb.Sheets("ss")
            ws1.Unprotect(123)
            MyExcel.Visible = True
            ws1.Select()
            ws1.Unprotect(123)
            With ws1
                Dim irow As Long
                irow = ws1.Range("A65536").End(Excel.XlDirection.xlUp).Offset(1, 0).Select
                irow = ws1.Range("A" & ws1.Rows.Count).End(Excel.XlDirection.xlUp).Row + 1
                ws1.Cells(irow, 1).value = Val(irow - 2)
                ws1.Cells(irow, 2).FormulaR1C1 = "=VLOOKUP(RC[-1],'gp1'!R3C1:R1000C31,2,FALSE)"
                ws1.Cells(irow, 3).FormulaR1C1 = "=VLOOKUP(RC[-2],'gp1'!R3C1:R1000C31,7,FALSE)"
                ws1.Cells(irow, 4).FormulaR1C1 = "=VLOOKUP(RC[-3],'gp1'!R3C1:R1000C31,8,FALSE)"
                ws1.Cells(irow, 5).value = "=VLOOKUP(RC[-4],'gp1'!R3C1:R1000C31,9,FALSE)"
                ws1.Cells(irow, 6).FormulaR1C1 = "= VLOOKUP(RC[-5],'gp1'!R3C1:R1000C31,10,FALSE)"
                ws1.Cells(irow, 7).FormulaR1C1 = "=RC[21]%*RC[-4]"
                ws1.Cells(irow, 8).FormulaR1C1 = "= VLOOKUP(RC[-7],'gp1'!R3C1:R1000C31,12,FALSE)"
                ws1.Cells(irow, 9).FormulaR1C1 = "= VLOOKUP(RC[-8],'gp1'!R3C1:R1000C31,13,FALSE)"
                ws1.Cells(irow, 10).FormulaR1C1 = "= VLOOKUP(RC[-9],'gp1'!R3C1:R1000C31,14,FALSE)"
                ws1.Cells(irow, 11).FormulaR1C1 = "= VLOOKUP(RC[-10],'gp1'!R3C1:R1000C31,15,FALSE)"
    
                ws1.Cells(irow, 12).FormulaR1C1 = "= VLOOKUP(RC[-11],'gp1'!R3C1:R1000C31,16,FALSE)"
    
                ws1.Cells(irow, 13).FormulaR1C1 = "= VLOOKUP(RC[-12],'gp1'!R3C1:R1000C31,17,FALSE)"
    
                ws1.Cells(irow, 14).FormulaR1C1 = "= VLOOKUP(RC[-13],'gp1'!R3C1:R1000C31,18,FALSE)"
    
                ws1.Cells(irow, 15).FormulaR1C1 = "= VLOOKUP(RC[-14],'gp1'!R3C1:R1000C31,19,FALSE)"
    
                ws1.Cells(irow, 16).FormulaR1C1 = "= VLOOKUP(RC[-15],'gp1'!R3C1:R1000C31,20,FALSE)"
    
                ws1.Cells(irow, 17).FormulaR1C1 = "= VLOOKUP(RC[-16],'gp1'!R3C1:R1000C31,21,FALSE)"
    
                ws1.Cells(irow, 18).FormulaR1C1 = "= VLOOKUP(RC[-17],'gp1'!R3C1:R1000C31,22,FALSE)"
    
                ws1.Cells(irow, 19).FormulaR1C1 = "= VLOOKUP(RC[-18],'gp1'!R3C1:R1000C31,23,FALSE)"
    
                ws1.Cells(irow, 20).FormulaR1C1 = "= VLOOKUP(RC[-19],'gp1'!R3C1:R1000C31,24,FALSE)"
    
                ws1.Cells(irow, 21).FormulaR1C1 = "= VLOOKUP(RC[-20],'gp1'!R3C1:R1000C31,25,FALSE)"
    
                ws1.Cells(irow, 22).FormulaR1C1 = "= VLOOKUP(RC[-21],'gp1'!R3C1:R1000C31,26,FALSE)"
    
                ws1.Cells(irow, 23).FormulaR1C1 = "= VLOOKUP(RC[-22],'gp1'!R3C1:R1000C31,27,FALSE)"
    
                ws1.Cells(irow, 24).FormulaR1C1 = "= VLOOKUP(RC[-23],'gp1'!R3C1:R1000C31,28,FALSE)"
    
                ws1.Cells(irow, 25).FormulaR1C1 = "= VLOOKUP(RC[-24],'gp1'!R3C1:R1000C31,29,FALSE)"
    
                ws1.Cells(irow, 26).FormulaR1C1 = "=VLOOKUP(RC[-25],'gp1'!R3C1:R1000C31,30,FALSE)"
    
                ws1.Cells(irow, 27).FormulaR1C1 = "= VLOOKUP(RC[-26],'gp1'!R3C1:R1000C31,31,FALSE)"
                MyExcel.EnableEvents = True
                MyExcel.Visible = False
                MyExcel.DisplayAlerts = False
                MyExcel.SaveWorkspace()
                MyExcel.Save("D:\azeo")
                ws1.Protect(123)
                MyExcel.Quit()
                ws1 = Nothing
                wb = Nothing
                MyExcel = Nothing
                GC.Collect()
                GC.WaitForPendingFinalizers()
            End With
            Me.Update()
            Exit Sub
        End Sub
    
        Private Sub BtnSsc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSsc.Click
    
            Dim MyExcel As Microsoft.Office.Interop.Excel.Application
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            MyExcel.EnableEvents = False
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws2 As Microsoft.Office.Interop.Excel.Worksheet
            ws2 = wb.Sheets("SLI Schedule")
            ws2.Unprotect()
            ws2.Select()
            With ws2
                Dim irow As Long
                irow = ws2.Range("A65536").End(Excel.XlDirection.xlUp).Offset(1, 0).Select
                irow = ws2.Range("A" & ws2.Rows.Count).End(Excel.XlDirection.xlUp).Row + 1
                ws2.Cells(irow, 2).FormulaR1C1 = "=VLOOKUP(RC1,ss!R3C1:R1000C27,2,FALSE)"
                ws2.Cells(irow, 3).FormulaR1C1 = "=VLOOKUP(RC[-2],ss!R3C1:R1000C27,20,FALSE)"
                ws2.Cells(irow, 4).FormulaR1C1 = "=VLOOKUP(RC[-3],'gp1'!R3C1:R1000C26,6,FALSE)"
    
            End With
            MyExcel.EnableEvents = True
            ws2.Protect()
            MyExcel.DisplayAlerts = False
            MyExcel.SaveWorkspace()
            MyExcel.Quit()
            ws2 = Nothing
            wb = Nothing
            MyExcel = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()
            Exit Sub
        End Sub
    
        Private Sub BtnAs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAs.Click
            Dim MyExcel As Microsoft.Office.Interop.Excel.Application
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            MyExcel.EnableEvents = False
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws3 As Microsoft.Office.Interop.Excel.Worksheet
            ws3 = wb.Sheets("advice salary")
            ws3.Unprotect(123)
            ws3.Select()
            With ws3
                Dim irow As Long
                irow = ws3.Range("A65536").End(Excel.XlDirection.xlUp).Offset(1, 0).Select
                irow = ws3.Range("A" & ws3.Rows.Count).End(Excel.XlDirection.xlUp).Row + 1
                ws3.Cells(irow, 2).FormulaR1C1 = "=VLOOKUP(RC1,ss!R3C1:R1000C27,2,FALSE)"
                ws3.Cells(irow, 3).FormulaR1C1 = "=VLOOKUP(RC1,'gp1'!R3C1:R1000C6,5,FALSE)"
                ws3.Cells(irow, 4).FormulaR1C1 = "=VLOOKUP(RC1,'gp1'!R3C1:R1000C6,4,FALSE)"
                ws3.Cells(irow, 5).FormulaR1C1 = "=VLOOKUP(RC1,ss!R3C1:R1000C27,27,FALSE)"
            End With
            MyExcel.EnableEvents = True
            MyExcel.Visible = False
            MyExcel.DisplayAlerts = False
            MyExcel.Save("D:\azeo")
            ws3.Protect(123)
            MyExcel.Quit()
            ws3 = Nothing
            wb = Nothing
            MyExcel = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()
            Exit Sub
            Me.Update()
            Exit Sub
        End Sub
    
    
        Private Sub BtnGpf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGpf.Click
            Dim MyExcel As Microsoft.Office.Interop.Excel.Application
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            MyExcel.EnableEvents = False
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws4 As Microsoft.Office.Interop.Excel.Worksheet
            ws4 = wb.Sheets("GPF Schedule ")
            ws4.Unprotect(123)
            ws4.Select()
            With ws4
                Dim irow As Long
                irow = ws4.Range("A65536").End(Excel.XlDirection.xlUp).Offset(1, 0).Select
                irow = ws4.Range("A" & ws4.Rows.Count).End(Excel.XlDirection.xlUp).Row + 1
                ws4.Cells(irow, 2).FormulaR1C1 = "=VLOOKUP(RC[-1],'GP1'!R3C1:R300C25,2,FALSE)"
    
                ws4.Cells(irow, 3).FormulaR1C1 = "=VLOOKUP(RC[-2],'GP1'!R3C1:R300C25,3,FALSE)"
    
                ws4.Cells(irow, 4).FormulaR1C1 = "=VLOOKUP(RC[-3],'GP1'!R3C1:R300C25,15,FALSE)"
    
                ws4.Cells(irow, 5).FormulaR1C1 = "=VLOOKUP(RC[-4],'GP1'!R3C1:R300C25,16,FALSE)"
    
                ws4.Cells(irow, 6).FormulaR1C1 = "=(RC[-2]+RC[-1])"
            End With
            MyExcel.EnableEvents = True
            MyExcel.Visible = False
            MyExcel.DisplayAlerts = False
            MyExcel.Save("D:\azeo")
            ws4.Protect(123)
            MyExcel.Quit()
            ws4 = Nothing
            MyExcel = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()
            Exit Sub
            Me.Update()
            Exit Sub
    
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim MyExcel As Microsoft.Office.Interop.Excel.Application
            MyExcel = New Microsoft.Office.Interop.Excel.Application
            MyExcel.EnableEvents = False
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            wb = MyExcel.Workbooks.Open("D:\azeo")
            Dim ws As Microsoft.Office.Interop.Excel.Worksheet
            ws = wb.Sheets("gp1")
            ws.Unprotect(123)
            ws.Select()
            With ws
                Dim irow As Long
                irow = ws.Range("A65536").End(Excel.XlDirection.xlUp).Offset(1, 0).Select
                irow = ws.Range("A" & ws.Rows.Count).End(Excel.XlDirection.xlUp).Row
                ws.UsedRange(irow).Value = ("")
                    ws.Cells(irow, 1).Value = ("")
                    ws.Cells(irow, 2).Value = ("")
                    ws.Cells(irow, 3).Value = ("")
                    ws.Cells(irow, 4).Value = ("")
                    ws.Cells(irow, 5).Value = ("")
                    ws.Cells(irow, 6).Value = ("")
                    ws.Cells(irow, 7).Value = ("")
                    Me.txtBp.Text = ws.Cells(irow, 7).Value
                    ws.Cells(irow, 8).Value = ("")
                    ws.Cells(irow, 9).Value = (ws.Cells(irow, 7).Value + ws.Cells(irow, 8).Value)
                    Me.Lbl_Tt.Text = ws.Cells(irow, 9).Value
                    ws.Cells(irow, 10).Value = ("")
                    ws.Cells(irow, 11).Value = Val(txtDaC.Text) / 100 * (ws.Cells(irow, 7).Value)
                    Me.txtDa.Text = ws.Cells(irow, 11).Value
                    ws.Cells(irow, 12).Value = ("")
                    ws.Cells(irow, 13).Value = ("")
                    ws.Cells(irow, 14).Value = ("")
                    ws.Cells(irow, 15).Value = ("")
                    ws.Cells(irow, 16).Formula = (ws.Cells(irow, 9).Value + ws.Cells(irow, 10).Value + ws.Cells(irow, 11).Value + ws.Cells(irow, 12).Value + ws.Cells(irow, 13).Value + ws.Cells(irow, 14).Value + ws.Cells(irow, 15).Value)
                    Me.Lbl_Gt.Text = ws.Cells(irow, 16).Value
                    ws.Cells(irow, 17).Value = ("")
                    ws.Cells(irow, 18).Formula = (ws.Cells(irow, 16).Formula - ws.Cells(irow, 17).Value)
                    Me.Lbl_Naf.Text = ws.Cells(irow, 18).Value
                    ws.Cells(irow, 19).Value = ("")
                    ws.Cells(irow, 20).Value = ("")
                    ws.Cells(irow, 21).Value = ("")
                    ws.Cells(irow, 22).Value = ("")
                    ws.Cells(irow, 23).Value = ("")
                    ws.Cells(irow, 24) = (ws.Cells(irow, 19).Value + ws.Cells(irow, 20).Value + ws.Cells(irow, 21).Value + ws.Cells(irow, 22).Value + ws.Cells(irow, 23).Value)
                    Me.Lbl_Ts.Text = ws.Cells(irow, 24).Value
                    ws.Cells(irow, 25).Formula = (ws.Cells(irow, 18).Value - ws.Cells(irow, 24).Value)
                    Me.Lbl_Nad.Text = ws.Cells(irow, 25).Value
                    ws.Cells(irow, 26).Value = ""
                    ws.Cells(irow, 27).Value = ("")
                    ws.Cells(irow, 28).Value = ("")
                    ws.Cells(irow, 29).Value = ("")
                    ws.Cells(irow, 30).Value = ("")
                    ws.Cells(irow, 31).Formula = (ws.Cells(irow, 25).Value - (ws.Cells(irow, 26).Value + ws.Cells(irow, 27).Value + ws.Cells(irow, 28).Value + ws.Cells(irow, 29).Value + ws.Cells(irow, 30).Value))
                    Me.Lbl_Np.Text = ws.Cells(irow, 31).Value
                    MessageBox.Show("The last row in Col A of Sheet1 which has data is " & irow)
    
            End With
            MyExcel.EnableEvents = True
            MyExcel.Visible = False
            ws.Protect(123)
            MyExcel.DisplayAlerts = False
            MyExcel.SaveWorkspace()
            MyExcel.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(ws)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(wb)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(MyExcel)
            ws = Nothing
            wb = Nothing
            MyExcel = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()
        End Sub
    
        Private Sub BtnCl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCl.Click
            txtSn.Text = ""
            txtNa.Text = ""
            txtGpf.Text = ""
            txtBa.Text = ""
            txtBn.Text = ""
            txtAp.Text = ""
            txtBp.Text = ""
            txtGp.Text = ""
            txtMa.Text = ""
            txtPp.Text = ""
            txtDa.Text = ""
            txtRa.Text = ""
            txtCca.Text = ""
            txtOa.Text = ""
            txtFa.Text = ""
            txtSf.Text = ""
            txtRf.Text = ""
            txtSi1.Text = ""
            txtSi2.Text = ""
            txtSi3.Text = ""
            txtHl.Text = ""
            txtCsc.Text = ""
            txtMr.Text = ""
            txtIt.Text = ""
            Me.Lbl_Tt.Text = ""
            Me.Lbl_Gt.Text = ""
            Me.Lbl_Naf.Text = ""
            Me.Lbl_Nad.Text = ""
            Me.Lbl_Np.Text = ""
    
            Exit Sub
    
        End Sub
    
        Private Sub frmEducountfinal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.Activate()
        End Sub
    
    End Class

    I have an urgent need to install it on another computer .I think there is some problem in netframwork
    Thanks for reply

    Monday, February 11, 2013 5:12 PM
  • I don't agree that your issue is .NET Framework related, but you can check the .NET Framework version on the target computer with this tool:

    http://social.msdn.microsoft.com/Forums/en-US/netfxsetup/thread/afeabac0-86d7-4ef1-a630-75c9e5f73663

    Run the tool with the .NET version your app targets, then post the first 15 lines AND the LAST 15 lines of the tool log here.

    Monday, February 11, 2013 8:29 PM