problem with downloading excel template

Question

palavi 0 Junior Poster in Training

14 Years Ago

Hi all,
I am getting exceptions while downloading Excel template. i think the problem is in one sheet if i remove that sheet i am able to download with some vb error messages like cannot read file etc., As per my knowledge in vb code for downloading i have changed code.
I have modified code for uploading excel sheet which is uploading successfully. But same template i am not able to download I cannot debug download vb code. Im new to VB please help me..

i have only changed 1 sheet named ThisWorksheet rest of the code (other sheets) is same as uploading template. here is my VB code in ThisWorksheet

Private Sub Workbook_Open()
           
    ''Copying Components Amonunt and Cost
            
    Dim sh As Worksheet
        For Each sh In Worksheets
        If sh.name = "fromjXLS" Then
            
            Sheets("Questionnaire").Range("C2").Value = sh.Range("A2").Value
            Sheets("Questionnaire").Range("C3").Value = sh.Range("A3").Value
            Sheets("Questionnaire").Range("C6").Value = sh.Range("A4").Value
            Sheets("Questionnaire").Range("C7").Value = sh.Range("A5").Value
            Sheets("Questionnaire").Range("F7").Value = sh.Range("A6").Value
            Sheets("Questionnaire").Range("C8").Value = sh.Range("A7").Value
            Sheets("Questionnaire").Range("F8").Value = sh.Range("A8").Value
            Sheets("Questionnaire").Range("C9").Value = sh.Range("A9").Value
            Sheets("Questionnaire").Range("C10").Value = sh.Range("A10").Value
            Sheets("Questionnaire").Range("F10").Value = sh.Range("A11").Value
            Sheets("Questionnaire").Range("C11").Value = sh.Range("A12").Value
            Sheets("Questionnaire").Range("F11").Value = sh.Range("A13").Value
            Sheets("Questionnaire").Range("C12").Value = sh.Range("A14").Value
            Sheets("Questionnaire").Range("F12").Value = sh.Range("A15").Value
            Sheets("Questionnaire").Range("C13").Value = sh.Range("A16").Value
            Sheets("Questionnaire").Range("C14").Value = sh.Range("A17").Value
            Sheets("Questionnaire").Range("C15").Value = sh.Range("A18").Value
            Sheets("Questionnaire").Range("C16").Value = sh.Range("A19").Value
            Sheets("Questionnaire").Range("C17").Value = sh.Range("A20").Value
            Sheets("Questionnaire").Range("C18").Value = sh.Range("A21").Value
            Sheets("Questionnaire").Range("E15").Value = sh.Range("A22").Value
            Sheets("Questionnaire").Range("E16").Value = sh.Range("A23").Value
            Sheets("Questionnaire").Range("E17").Value = sh.Range("A24").Value
            Sheets("Questionnaire").Range("E18").Value = sh.Range("A25").Value
            Sheets("Questionnaire").Range("E19").Value = sh.Range("A26").Value
            Sheets("Questionnaire").Range("F15").Value = sh.Range("A27").Value
            Sheets("Questionnaire").Range("F16").Value = sh.Range("A28").Value
            Sheets("Questionnaire").Range("F17").Value = sh.Range("A29").Value
            Sheets("Questionnaire").Range("F18").Value = sh.Range("A30").Value
            Sheets("Questionnaire").Range("F19").Value = sh.Range("A31").Value
            Sheets("Questionnaire").Range("C22").Value = sh.Range("A32").Value
            Sheets("Questionnaire").Range("C23").Value = sh.Range("A33").Value
            Sheets("Questionnaire").Range("C24").Value = sh.Range("A34").Value
            Sheets("Questionnaire").Range("C25").Value = sh.Range("A35").Value
            Sheets("Questionnaire").Range("C26").Value = sh.Range("A36").Value
            Sheets("Questionnaire").Range("C27").Value = sh.Range("A37").Value
            Sheets("Questionnaire").Range("F27").Value = sh.Range("A38").Value
            Sheets("Questionnaire").Range("C28").Value = sh.Range("A39").Value
            Sheets("Questionnaire").Range("F28").Value = sh.Range("A40").Value
            Sheets("Questionnaire").Range("C29").Value = sh.Range("A41").Value
            Sheets("Questionnaire").Range("F29").Value = sh.Range("A42").Value
            Sheets("Questionnaire").Range("C30").Value = sh.Range("A43").Value
            Sheets("Questionnaire").Range("F30").Value = sh.Range("A44").Value
            Sheets("Questionnaire").Range("C31").Value = sh.Range("A41").Value
            Sheets("Questionnaire").Range("F31").Value = sh.Range("A42").Value
            Sheets("Questionnaire").Range("C34").Value = sh.Range("A43").Value
            Sheets("Questionnaire").Range("F34").Value = sh.Range("A44").Value
            Sheets("Questionnaire").Range("B36").Value = sh.Range("A45").Value
            End If
           ' If (sh.Range("A85").Value <> 0) Then
            '    Sheets("Questionnaire").Range("J47").Value = sh.Range("A85").Value
           ' End If
           ' If (Trim(sh.Range("A104").Value) = "True") Then
            '    Sheets("toCSV").Range("B104").Value = True
            'Else
             '   Sheets("toCSV").Range("B104").Value = False
           ' End If
            'If (Trim(sh.Range("A105").Value) = "True") Then
             '   Sheets("toCSV").Range("B105").Value = True
           ' Else
             '   Sheets("toCSV").Range("B105").Value = False
            'End If
           ' If (Trim(sh.Range("A106").Value) = "True") Then
             '   Sheets("toCSV").Range("B106").Value = True
           ' Else
             '   Sheets("toCSV").Range("B106").Value = False
           ' End If
           ' If (Trim(sh.Range("A107").Value) = "True") Then
             '   Sheets("toCSV").Range("B107").Value = True
           ' Else
             '   Sheets("toCSV").Range("B107").Value = False
           ' End If
           ' Sheets("Questionnaire").Range("J56").Value = sh.Range("A92").Value
           ' Sheets("Questionnaire").Range("J57").Value = sh.Range("A93").Value
           ' Sheets("toCSV").Range("B121").Value = sh.Range("A111").Value ' this line of code is for putting 'NNNNNN' value.
            
                     
     '      Dim i As Integer
      '     Dim j As Integer
      '     i = 33
     '      j = 28
     '      k = 35
      '     Do While i < 70 And j < 36 And k < 38
      '         If Len(Trim(sh.Range("A" & i).Value)) > 0 Then
       '            Dim l As Integer
      '             Dim token As Integer
       '           token = 0
        '          ' For l = 15 To 31
                    '    If Trim(sh.Range("A" & i).Value) = Trim(Sheets("Questionnaire").Cells(28, l).Value) Then
                     '       token = 1
                      '  End If
                   ' Next
                    'If token = 1 Then
                    '     Sheets("Questionnaire").Range("E" & j).Value = _
                     '       sh.Range("A" & (i)).Value
                     '    Sheets("Questionnaire").Range("F" & j).Value = _
                     '       sh.Range("A" & (i + 1)).Value
                     '    Sheets("Questionnaire").Range("G" & j).Value = _
                     '       sh.Range("A" & (i + 2)).Value
                    '    If Sheets("Questionnaire").Range("I" & j).Value <> _
                     '       sh.Range("A" & (i + 3)).Value Then
                     '       Sheets("Questionnaire").Range("J" & j).Value = _
                      '          sh.Range("A" & (i + 3)).Value
                       ' End If
                       ' j = j + 1
                   ' Else
                        ' Sheets("Questionnaire").Range("E" & k).Value = _
                         '   sh.Range("A" & (i)).Value 'this is for custom comp1-custom comp3 columns
                        ' Sheets("Questionnaire").Range("G" & k).Value = _
                        '    sh.Range("A" & (i + 1)).Value
                       '  Sheets("Questionnaire").Range("J" & k).Value = _
                        '    sh.Range("A" & (i + 2)).Value
                       ' k = k + 1
              '     End If
             '      i = i + 4
            '   Else
            '       i = 70
            '   End If
          ' Loop
           For i = 3 To 10
                'prepend a $ symbol to trigger proper formatting
                Dim temp As String
                temp = "$" & Sheets("fromCSV").Range("B" & i).Value
                Sheets("fromCSV").Range("B" & i).Value = temp
            Next
            Application.DisplayAlerts = False
            'sh.Delete
            Application.DisplayAlerts = True
         'End If
     Next
    
    ''Counting customer acknoldgement 'orinally commented
    Call customer_acknoledgement.init_ack_check_boxes 'not required
    Call customer_acknoledgement.init_acknoledgement
    Call saveOldValues
    
    Sheets("Questionnaire").Activate
    Sheets("Questionnaire").Range("A1").Select
   
    Call Sheet1.Worksheet_Activate
    
End Sub

01-08-2009 08:55:31 IST,INFO,Application,com.cypress.webapps.vp.controller.servlet.DownloadServlet,,,"customer_name: downlaod"
01-08-2009 08:55:31 IST,INFO,Application,com.cypress.webapps.vp.controller.servlet.DownloadServlet,,,"application_name: tertg"
Size of bean138
01-08-2009 08:55:31 IST,ERROR,Application,org.apache.catalina.core.StandardWrapperValve,,,"Servlet.service() for servlet Download Servlet threw exception"
java.lang.ArrayIndexOutOfBoundsException: 9
	at org.apache.poi.util.LittleEndian.getNumber(LittleEndian.java:491)
	at org.apache.poi.util.LittleEndian.getShort(LittleEndian.java:52)
	at org.apache.poi.hssf.record.TextObjectRecord.processFontRuns(TextObjectRecord.java:140)
	at org.apache.poi.hssf.record.TextObjectRecord.processContinueRecord(TextObjectRecord.java:131)
	at org.apache.poi.hssf.record.RecordFactory.createRecords(RecordFactory.java:188)
	at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:163)
	at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:130)
	at net.sf.jxls.transformer.XLSTransformer.transformXLS(XLSTransformer.java:221)
	at net.sf.jxls.transformer.XLSTransformer.transformXLS(XLSTransformer.java:201)
	at com.cypress.webapps.vp.controller.servlet.DownloadServlet.processRequest(DownloadServlet.java:219)
	at com.cypress.webapps.vp.controller.servlet.DownloadServlet.doGet(DownloadServlet.java:415)
	at javax.servlet.http.HttpServlet.service(HttpServlet.java:689)
	at javax.servlet.http.HttpServlet.service(HttpServlet.java:802)
	at org.apache.catalina.core.ApplicationFilterChain.internalDoFilter(ApplicationFilterChain.java:252)
	at org.apache.catalina.core.ApplicationFilterChain.doFilter(ApplicationFilterChain.java:173)
	at com.cypress.webapps.vp.controller.filter.RMIAuthenticationFilter.doFilter(RMIAuthenticationFilter.java:121)
	at org.apache.catalina.core.ApplicationFilterChain.internalDoFilter(ApplicationFilterChain.java:202)
	at org.apache.catalina.core.ApplicationFilterChain.doFilter(ApplicationFilterChain.java:173)
	at com.cypress.utils.core.controller.filter.DBConnectionFilter.doFilter(DBConnectionFilter.java:80)
	at org.apache.catalina.core.ApplicationFilterChain.internalDoFilter(ApplicationFilterChain.java:202)
	at org.apache.catalina.core.ApplicationFilterChain.doFilter(ApplicationFilterChain.java:173)
	at org.apache.catalina.core.StandardWrapperValve.invoke(StandardWrapperValve.java:213)
	at org.apache.catalina.core.StandardContextValve.invoke(StandardContextValve.java:178)
	at org.apache.catalina.authenticator.AuthenticatorBase.invoke(AuthenticatorBase.java:432)
	at org.apache.catalina.valves.AccessLogValve.invoke(AccessLogValve.java:541)
	at org.apache.catalina.core.StandardHostValve.invoke(StandardHostValve.java:126)
	at org.apache.catalina.valves.ErrorReportValve.invoke(ErrorReportValve.java:105)
	at org.apache.catalina.core.StandardEngineValve.invoke(StandardEngineValve.java:107)
	at org.apache.catalina.connector.CoyoteAdapter.service(CoyoteAdapter.java:148)
	at org.apache.coyote.http11.Http11Processor.process(Http11Processor.java:869)
	at org.apache.coyote.http11.Http11BaseProtocol$Http11ConnectionHandler.processConnection(Http11BaseProtocol.java:664)
	at org.apache.tomcat.util.net.PoolTcpEndpoint.processSocket(PoolTcpEndpoint.java:527)
	at org.apache.tomcat.util.net.LeaderFollowerWorkerThread.runIt(LeaderFollowerWorkerThread.java:80)
	at org.apache.tomcat.util.threads.ThreadPool$ControlRunnable.run(ThreadPool.java:684)
	at java.lang.Thread.run(Thread.java:595)

visual-basic-6

2 Contributors
7 Replies
164 Views
1 Week Discussion Span
Latest Post 14 Years Ago Latest Post by palavi

All 7 Replies

manoshailu 12 Junior Poster

14 Years Ago

Hi,
Your code is not clear because in the code there are various procedures are called and i think you given only half of the code. From the message i get to know that you need to dowload the existing template file from the particular or any other location so i given you a sample code and it might be useful to you

Private Sub Command1_Click()
'TO FILTER THE EXCEL FILES
CommonDialog1.Filter = ".Xls | *.Xls"
'TO SHOW OPEN DIALOG BOX
CommonDialog1.ShowOpen
'TO STORE THE FILE LOCATION IN THE TEXT BOX
Text1.Text = CommonDialog1.FileName
'TO DOWNLOAD THE EXCEL FILE
Workbook_Open
End Sub
Private Sub Workbook_Open()
'DECLARE THE VARIABLE FOR EXCEL APPLICATION
Dim xlApp As excel.Application
Set xlApp = New excel.Application
'SET THE FILE LOCATION TO OPEN
xlApp.Application.Workbooks.Open (Text1.Text)
'DOWNLOAD THE SHEET AND VIEW
xlApp.Application.Visible = True
End Sub

Have a Great Day
Shailaja

Hi all,
I am getting exceptions while downloading Excel template. i think the problem is in one sheet if i remove that sheet i am able to download with some vb error messages like cannot read file etc., As per my knowledge in vb code for downloading i have changed code.
I have modified code for uploading excel sheet which is uploading successfully. But same template i am not able to download I cannot debug download vb code. Im new to VB please help me..

i have only changed 1 sheet named ThisWorksheet rest of the code (other sheets) is same as uploading template. here is my VB code in ThisWorksheet

Private Sub Workbook_Open()
           
    ''Copying Components Amonunt and Cost
            
    Dim sh As Worksheet
        For Each sh In Worksheets
        If sh.name = "fromjXLS" Then
            
            Sheets("Questionnaire").Range("C2").Value = sh.Range("A2").Value
            Sheets("Questionnaire").Range("C3").Value = sh.Range("A3").Value
            Sheets("Questionnaire").Range("C6").Value = sh.Range("A4").Value
            Sheets("Questionnaire").Range("C7").Value = sh.Range("A5").Value
            Sheets("Questionnaire").Range("F7").Value = sh.Range("A6").Value
            Sheets("Questionnaire").Range("C8").Value = sh.Range("A7").Value
            Sheets("Questionnaire").Range("F8").Value = sh.Range("A8").Value
            Sheets("Questionnaire").Range("C9").Value = sh.Range("A9").Value
            Sheets("Questionnaire").Range("C10").Value = sh.Range("A10").Value
            Sheets("Questionnaire").Range("F10").Value = sh.Range("A11").Value
            Sheets("Questionnaire").Range("C11").Value = sh.Range("A12").Value
            Sheets("Questionnaire").Range("F11").Value = sh.Range("A13").Value
            Sheets("Questionnaire").Range("C12").Value = sh.Range("A14").Value
            Sheets("Questionnaire").Range("F12").Value = sh.Range("A15").Value
            Sheets("Questionnaire").Range("C13").Value = sh.Range("A16").Value
            Sheets("Questionnaire").Range("C14").Value = sh.Range("A17").Value
            Sheets("Questionnaire").Range("C15").Value = sh.Range("A18").Value
            Sheets("Questionnaire").Range("C16").Value = sh.Range("A19").Value
            Sheets("Questionnaire").Range("C17").Value = sh.Range("A20").Value
            Sheets("Questionnaire").Range("C18").Value = sh.Range("A21").Value
            Sheets("Questionnaire").Range("E15").Value = sh.Range("A22").Value
            Sheets("Questionnaire").Range("E16").Value = sh.Range("A23").Value
            Sheets("Questionnaire").Range("E17").Value = sh.Range("A24").Value
            Sheets("Questionnaire").Range("E18").Value = sh.Range("A25").Value
            Sheets("Questionnaire").Range("E19").Value = sh.Range("A26").Value
            Sheets("Questionnaire").Range("F15").Value = sh.Range("A27").Value
            Sheets("Questionnaire").Range("F16").Value = sh.Range("A28").Value
            Sheets("Questionnaire").Range("F17").Value = sh.Range("A29").Value
            Sheets("Questionnaire").Range("F18").Value = sh.Range("A30").Value
            Sheets("Questionnaire").Range("F19").Value = sh.Range("A31").Value
            Sheets("Questionnaire").Range("C22").Value = sh.Range("A32").Value
            Sheets("Questionnaire").Range("C23").Value = sh.Range("A33").Value
            Sheets("Questionnaire").Range("C24").Value = sh.Range("A34").Value
            Sheets("Questionnaire").Range("C25").Value = sh.Range("A35").Value
            Sheets("Questionnaire").Range("C26").Value = sh.Range("A36").Value
            Sheets("Questionnaire").Range("C27").Value = sh.Range("A37").Value
            Sheets("Questionnaire").Range("F27").Value = sh.Range("A38").Value
            Sheets("Questionnaire").Range("C28").Value = sh.Range("A39").Value
            Sheets("Questionnaire").Range("F28").Value = sh.Range("A40").Value
            Sheets("Questionnaire").Range("C29").Value = sh.Range("A41").Value
            Sheets("Questionnaire").Range("F29").Value = sh.Range("A42").Value
            Sheets("Questionnaire").Range("C30").Value = sh.Range("A43").Value
            Sheets("Questionnaire").Range("F30").Value = sh.Range("A44").Value
            Sheets("Questionnaire").Range("C31").Value = sh.Range("A41").Value
            Sheets("Questionnaire").Range("F31").Value = sh.Range("A42").Value
            Sheets("Questionnaire").Range("C34").Value = sh.Range("A43").Value
            Sheets("Questionnaire").Range("F34").Value = sh.Range("A44").Value
            Sheets("Questionnaire").Range("B36").Value = sh.Range("A45").Value
            End If
           ' If (sh.Range("A85").Value <> 0) Then
            '    Sheets("Questionnaire").Range("J47").Value = sh.Range("A85").Value
           ' End If
           ' If (Trim(sh.Range("A104").Value) = "True") Then
            '    Sheets("toCSV").Range("B104").Value = True
            'Else
             '   Sheets("toCSV").Range("B104").Value = False
           ' End If
            'If (Trim(sh.Range("A105").Value) = "True") Then
             '   Sheets("toCSV").Range("B105").Value = True
           ' Else
             '   Sheets("toCSV").Range("B105").Value = False
            'End If
           ' If (Trim(sh.Range("A106").Value) = "True") Then
             '   Sheets("toCSV").Range("B106").Value = True
           ' Else
             '   Sheets("toCSV").Range("B106").Value = False
           ' End If
           ' If (Trim(sh.Range("A107").Value) = "True") Then
             '   Sheets("toCSV").Range("B107").Value = True
           ' Else
             '   Sheets("toCSV").Range("B107").Value = False
           ' End If
           ' Sheets("Questionnaire").Range("J56").Value = sh.Range("A92").Value
           ' Sheets("Questionnaire").Range("J57").Value = sh.Range("A93").Value
           ' Sheets("toCSV").Range("B121").Value = sh.Range("A111").Value ' this line of code is for putting 'NNNNNN' value.
            
                     
     '      Dim i As Integer
      '     Dim j As Integer
      '     i = 33
     '      j = 28
     '      k = 35
      '     Do While i < 70 And j < 36 And k < 38
      '         If Len(Trim(sh.Range("A" & i).Value)) > 0 Then
       '            Dim l As Integer
      '             Dim token As Integer
       '           token = 0
        '          ' For l = 15 To 31
                    '    If Trim(sh.Range("A" & i).Value) = Trim(Sheets("Questionnaire").Cells(28, l).Value) Then
                     '       token = 1
                      '  End If
                   ' Next
                    'If token = 1 Then
                    '     Sheets("Questionnaire").Range("E" & j).Value = _
                     '       sh.Range("A" & (i)).Value
                     '    Sheets("Questionnaire").Range("F" & j).Value = _
                     '       sh.Range("A" & (i + 1)).Value
                     '    Sheets("Questionnaire").Range("G" & j).Value = _
                     '       sh.Range("A" & (i + 2)).Value
                    '    If Sheets("Questionnaire").Range("I" & j).Value <> _
                     '       sh.Range("A" & (i + 3)).Value Then
                     '       Sheets("Questionnaire").Range("J" & j).Value = _
                      '          sh.Range("A" & (i + 3)).Value
                       ' End If
                       ' j = j + 1
                   ' Else
                        ' Sheets("Questionnaire").Range("E" & k).Value = _
                         '   sh.Range("A" & (i)).Value 'this is for custom comp1-custom comp3 columns
                        ' Sheets("Questionnaire").Range("G" & k).Value = _
                        '    sh.Range("A" & (i + 1)).Value
                       '  Sheets("Questionnaire").Range("J" & k).Value = _
                        '    sh.Range("A" & (i + 2)).Value
                       ' k = k + 1
              '     End If
             '      i = i + 4
            '   Else
            '       i = 70
            '   End If
          ' Loop
           For i = 3 To 10
                'prepend a $ symbol to trigger proper formatting
                Dim temp As String
                temp = "$" & Sheets("fromCSV").Range("B" & i).Value
                Sheets("fromCSV").Range("B" & i).Value = temp
            Next
            Application.DisplayAlerts = False
            'sh.Delete
            Application.DisplayAlerts = True
         'End If
     Next
    
    ''Counting customer acknoldgement 'orinally commented
    Call customer_acknoledgement.init_ack_check_boxes 'not required
    Call customer_acknoledgement.init_acknoledgement
    Call saveOldValues
    
    Sheets("Questionnaire").Activate
    Sheets("Questionnaire").Range("A1").Select
   
    Call Sheet1.Worksheet_Activate
    
End Sub

01-08-2009 08:55:31 IST,INFO,Application,com.cypress.webapps.vp.controller.servlet.DownloadServlet,,,"customer_name: downlaod"
01-08-2009 08:55:31 IST,INFO,Application,com.cypress.webapps.vp.controller.servlet.DownloadServlet,,,"application_name: tertg"
Size of bean138
01-08-2009 08:55:31 IST,ERROR,Application,org.apache.catalina.core.StandardWrapperValve,,,"Servlet.service() for servlet Download Servlet threw exception"
java.lang.ArrayIndexOutOfBoundsException: 9
	at org.apache.poi.util.LittleEndian.getNumber(LittleEndian.java:491)
	at org.apache.poi.util.LittleEndian.getShort(LittleEndian.java:52)
	at org.apache.poi.hssf.record.TextObjectRecord.processFontRuns(TextObjectRecord.java:140)
	at org.apache.poi.hssf.record.TextObjectRecord.processContinueRecord(TextObjectRecord.java:131)
	at org.apache.poi.hssf.record.RecordFactory.createRecords(RecordFactory.java:188)
	at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:163)
	at org.apache.poi.hssf.usermodel.HSSFWorkbook.<init>(HSSFWorkbook.java:130)
	at net.sf.jxls.transformer.XLSTransformer.transformXLS(XLSTransformer.java:221)
	at net.sf.jxls.transformer.XLSTransformer.transformXLS(XLSTransformer.java:201)
	at com.cypress.webapps.vp.controller.servlet.DownloadServlet.processRequest(DownloadServlet.java:219)
	at com.cypress.webapps.vp.controller.servlet.DownloadServlet.doGet(DownloadServlet.java:415)
	at javax.servlet.http.HttpServlet.service(HttpServlet.java:689)
	at javax.servlet.http.HttpServlet.service(HttpServlet.java:802)
	at org.apache.catalina.core.ApplicationFilterChain.internalDoFilter(ApplicationFilterChain.java:252)
	at org.apache.catalina.core.ApplicationFilterChain.doFilter(ApplicationFilterChain.java:173)
	at com.cypress.webapps.vp.controller.filter.RMIAuthenticationFilter.doFilter(RMIAuthenticationFilter.java:121)
	at org.apache.catalina.core.ApplicationFilterChain.internalDoFilter(ApplicationFilterChain.java:202)
	at org.apache.catalina.core.ApplicationFilterChain.doFilter(ApplicationFilterChain.java:173)
	at com.cypress.utils.core.controller.filter.DBConnectionFilter.doFilter(DBConnectionFilter.java:80)
	at org.apache.catalina.core.ApplicationFilterChain.internalDoFilter(ApplicationFilterChain.java:202)
	at org.apache.catalina.core.ApplicationFilterChain.doFilter(ApplicationFilterChain.java:173)
	at org.apache.catalina.core.StandardWrapperValve.invoke(StandardWrapperValve.java:213)
	at org.apache.catalina.core.StandardContextValve.invoke(StandardContextValve.java:178)
	at org.apache.catalina.authenticator.AuthenticatorBase.invoke(AuthenticatorBase.java:432)
	at org.apache.catalina.valves.AccessLogValve.invoke(AccessLogValve.java:541)
	at org.apache.catalina.core.StandardHostValve.invoke(StandardHostValve.java:126)
	at org.apache.catalina.valves.ErrorReportValve.invoke(ErrorReportValve.java:105)
	at org.apache.catalina.core.StandardEngineValve.invoke(StandardEngineValve.java:107)
	at org.apache.catalina.connector.CoyoteAdapter.service(CoyoteAdapter.java:148)
	at org.apache.coyote.http11.Http11Processor.process(Http11Processor.java:869)
	at org.apache.coyote.http11.Http11BaseProtocol$Http11ConnectionHandler.processConnection(Http11BaseProtocol.java:664)
	at org.apache.tomcat.util.net.PoolTcpEndpoint.processSocket(PoolTcpEndpoint.java:527)
	at org.apache.tomcat.util.net.LeaderFollowerWorkerThread.runIt(LeaderFollowerWorkerThread.java:80)
	at org.apache.tomcat.util.threads.ThreadPool$ControlRunnable.run(ThreadPool.java:684)
	at java.lang.Thread.run(Thread.java:595)

manoshailu 12 Junior Poster

14 Years Ago

hi,

Can you send me the excel file which you are trying to do something.

Shailaja

people who worked on VBA downloading template plzz help me i checked in google but they didnt mention any code on VB..

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

palavi 0 Junior Poster in Training · Answer 1 · 2009-08-03T18:01:30+00:00

Hi Shilaja,

Thank you very much for replying.. I am not getting what VB code have to change for downloading.i m downloading a template theres some vb error . im not getting what to do. if i remove few sheet will work. i am completely new to VB. I am not getting how to debug also..plzz help me :( . mine uploading code is same as downloading except one file ThisWorkbook sheet. there 's some code for downloading..and one more extra sheet fromjXLS.

Thanks in advance

palavi 0 Junior Poster in Training · Answer 2 · 2009-08-03T18:21:23+00:00

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call saveOldValues
End Sub

Private Sub Workbook_Open()
           
    ''Copying Components Amonunt and Cost
            
    Dim sh As Worksheet
        For Each sh In Worksheets
        If sh.name = "fromjXLS" Then
            
            Sheets("Questionnaire").Range("C2").Value = sh.Range("A2").Value
            Sheets("Questionnaire").Range("C3").Value = sh.Range("A3").Value
            Sheets("Questionnaire").Range("C6").Value = sh.Range("A4").Value
            Sheets("Questionnaire").Range("C7").Value = sh.Range("A5").Value
            Sheets("Questionnaire").Range("F7").Value = sh.Range("A6").Value
            Sheets("Questionnaire").Range("C8").Value = sh.Range("A7").Value
            Sheets("Questionnaire").Range("F8").Value = sh.Range("A8").Value
            Sheets("Questionnaire").Range("C9").Value = sh.Range("A9").Value
            Sheets("Questionnaire").Range("C10").Value = sh.Range("A10").Value
            Sheets("Questionnaire").Range("F10").Value = sh.Range("A11").Value
            Sheets("Questionnaire").Range("C11").Value = sh.Range("A12").Value
            Sheets("Questionnaire").Range("F11").Value = sh.Range("A13").Value
            Sheets("Questionnaire").Range("C12").Value = sh.Range("A14").Value
            Sheets("Questionnaire").Range("F12").Value = sh.Range("A15").Value
            Sheets("Questionnaire").Range("C13").Value = sh.Range("A16").Value
            Sheets("Questionnaire").Range("C14").Value = sh.Range("A17").Value
            Sheets("Questionnaire").Range("C15").Value = sh.Range("A18").Value
            Sheets("Questionnaire").Range("C16").Value = sh.Range("A19").Value
            Sheets("Questionnaire").Range("C17").Value = sh.Range("A20").Value
            Sheets("Questionnaire").Range("C18").Value = sh.Range("A21").Value
            Sheets("Questionnaire").Range("E15").Value = sh.Range("A22").Value
            Sheets("Questionnaire").Range("E16").Value = sh.Range("A23").Value
            Sheets("Questionnaire").Range("E17").Value = sh.Range("A24").Value
            Sheets("Questionnaire").Range("E18").Value = sh.Range("A25").Value
            Sheets("Questionnaire").Range("E19").Value = sh.Range("A26").Value
            Sheets("Questionnaire").Range("F15").Value = sh.Range("A27").Value
            Sheets("Questionnaire").Range("F16").Value = sh.Range("A28").Value
            Sheets("Questionnaire").Range("F17").Value = sh.Range("A29").Value
            Sheets("Questionnaire").Range("F18").Value = sh.Range("A30").Value
            Sheets("Questionnaire").Range("F19").Value = sh.Range("A31").Value
            Sheets("Questionnaire").Range("C22").Value = sh.Range("A32").Value
            Sheets("Questionnaire").Range("C23").Value = sh.Range("A33").Value
            Sheets("Questionnaire").Range("C24").Value = sh.Range("A34").Value
            Sheets("Questionnaire").Range("C25").Value = sh.Range("A35").Value
            Sheets("Questionnaire").Range("C26").Value = sh.Range("A36").Value
            Sheets("Questionnaire").Range("C27").Value = sh.Range("A37").Value
            Sheets("Questionnaire").Range("F27").Value = sh.Range("A38").Value
            Sheets("Questionnaire").Range("C28").Value = sh.Range("A39").Value
            Sheets("Questionnaire").Range("F28").Value = sh.Range("A40").Value
            Sheets("Questionnaire").Range("C29").Value = sh.Range("A41").Value
            Sheets("Questionnaire").Range("F29").Value = sh.Range("A42").Value
            Sheets("Questionnaire").Range("C30").Value = sh.Range("A43").Value
            Sheets("Questionnaire").Range("F30").Value = sh.Range("A44").Value
            Sheets("Questionnaire").Range("C31").Value = sh.Range("A41").Value
            Sheets("Questionnaire").Range("F31").Value = sh.Range("A42").Value
            Sheets("Questionnaire").Range("C34").Value = sh.Range("A43").Value
            Sheets("Questionnaire").Range("F34").Value = sh.Range("A44").Value
            Sheets("Questionnaire").Range("B36").Value = sh.Range("A45").Value
            
          
           For i = 3 To 15
                'prepend a $ symbol to trigger proper formatting
                Dim temp As String
                temp = "$" & Sheets("fromCSV").Range("B" & i).Value
                Sheets("fromCSV").Range("B" & i).Value = temp
            Next
            Application.DisplayAlerts = False
            'sh.Delete
            Application.DisplayAlerts = True
         End If
     Next
    
    ''Counting customer acknoldgement 'orinally commented
    'Call customer_acknoledgement.init_ack_check_boxes 'not required
    'Call customer_acknoledgement.init_acknoledgement
    Call saveOldValues
    
    Sheets("Questionnaire").Activate
    Sheets("Questionnaire").Range("A1").Select
   
    Call Sheet1.Worksheet_Activate
    
End Sub
Private Sub saveOldValues()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.name = "toCSV" Then
            For k = 1 To 54
               sh.Range("Z" & k).Value = sh.Range("B" & k).Value
            Next k
        End If
    Next
End Sub

This is what is have changed in Thisworkbook for downloading template. but its not working everywhere there s error.

In the above code im assigning value from fromjXLS to Questionnaire sheet. and adding $ to fromCSV sheet. This was written earlier and i have modified .... thoght if it works i will write for loop instead of assigning everytime.. but not working for assignment stataements also

palavi 0 Junior Poster in Training · Answer 3 · 2009-08-03T18:34:10+00:00

people who worked on VBA downloading template plzz help me i checked in google but they didnt mention any code on VB..

palavi 0 Junior Poster in Training · Answer 4 · 2009-08-04T19:18:54+00:00

Hi Shailaja,

Its not uploading .xls files.. in downloading template

i have typed cell names ${customer_name} everywhere in cells in downloading template and i am placing this file in one path named VP.

uploading template code is same as downloading template except one file ThisWorkBook sheet. But even if i remove that code its working.... but the problem is with the Questionnaire Sheet.

Can you give me any of your e-mail address so that i can attach you the templates. or Daniweb 's mail id anything is fine.

palavi 0 Junior Poster in Training · Answer 5 · 2009-08-13T11:17:42+00:00

Hi ALL,

Can anybody kindly help me how to download a template from server.

I am not able to get the downloaded tempalte with proper output.

can anybody help in this regard?

problem with downloading excel template

Recommended Answers Collapse Answers

All 7 Replies

Recommended Answers