Solved Exporting a access report to excel

[Snappy1263]

That is the point. Just export the query you use to make the report.

Don't try to format it. No code required.

Think about it. If you import the table with the blank lines, you are going to have to do something to get rid of the blank lines because blank lines do NOT belong in a table. They want a TABLE, not something formatted.

Unfortunately this has to be a formal price sheet. This is for them to accept or not accept. What they do with it after that does not concern me.

 

[theDBguy]

This is for them to accept or not accept.

Hi. Just curious, what does this means exactly? For example, if I were to send a project estimate cost to a potential client, I could give them the proposal in Word or Excel. However, that would mean they could freely change the price, because the file is editable (not sure if anyone would actually do that, but we never know). If they do that, then it would be a matter of arguing what the original price was that I gave them. So, to avoid all that, I usually just submit PDF versions of those price proposals. This probably doesn't apply to your situation, but I was just curious about what you just said. Cheers!

 

[arnelgp]

hi.
i change i = 6, then add another line that add 1 to i.
change your code appropritely:

        j = 6
        Do Until .EOF
            j = j + 1
            For i = 0 To .Fields.Count - 1
                If i < 1 Then
                    If sText <> .Fields(i).Value & "" Then
                        sText = .Fields(i).Value & ""
                        j = j + 1
                        oWB.sheets(1).range(Chr(65 + i) & j) = .Fields(i).Value
                    End If

 

[Snappy1263]

hi.
i change i = 6, then add another line that add 1 to i.
change your code appropritely:

        j = 6
        Do Until .EOF
            j = j + 1
            For i = 0 To .Fields.Count - 1
                If i < 1 Then
                    If sText <> .Fields(i).Value & "" Then
                        sText = .Fields(i).Value & ""
                        j = j + 1
                        oWB.sheets(1).range(Chr(65 + i) & j) = .Fields(i).Value
                    End If

You are my hero, thank so very much. This works perfectly just what I needed,.