EXCEL清單如何轉換成財政部電子發票格式

VANESSA

我有一份EXCEL清單(同一行有發票單頭及發票單身,如果單身有2行,那個單頭就會重覆),請問如何轉換成財政部電子發票CSV的格式(單頭一行,下一行單身,一個品名一行,再換下一個單頭,再換下一筆單身 )
請各位大大幫幫忙,謝謝
活頁簿1.zip (22 Bytes)

下載次數: 10

2020-8-14 12:33

s3526369

回復 6# VANESSA


   Sub 載入()
Dim xR As Range, xH As Range, T$
[工作表2!A1:L3000].ClearContents
[工作表1!A1].Resize(1, 5).Copy [工作表2!A1:E1]  ''<---新增這一段
Set xH = [工作表2!A2]
Application.ScreenUpdating = False
For Each xR In Range([工作表1!A1], [工作表1!A65536].End(xlUp))
    If xR <> "M" Then GoTo 101
    If xR(1, 2) <> T Then
       xR.Resize(1, 12).Copy xH
       Set xH = xH(2):  T = xR(1, 2)
    End If
    xR(1, 16).Resize(1, 6).Copy xH
    Set xH = xH(2)
101: Next
End Sub

samwang

回復 6# VANESSA


不太能了解您的意思，可以上傳完成後的檔案嗎? 謝謝。

VANESSA

請問如果我想每次執行VBA時,他可以固定先產生下列這行,應該要如何行修改VBA?
H        12345678        測試股份有限公司        台北市中正區        02-88888888

VANESSA

回復 4# 准提部林


    可以吔,謝謝,

准提部林

表身筆數不定, 用vba吧!
增加一個工作表2:
Sub 載入()
Dim xR As Range, xH As Range, T$
[工作表2!A1:L3000].ClearContents
Set xH = [工作表2!A1]
Application.ScreenUpdating = False
For Each xR In Range([工作表1!A1], [工作表1!A65536].End(xlUp))
    If xR <> "M" Then GoTo 101
    If xR(1, 2) <> T Then
       xR.Resize(1, 12).Copy xH
       Set xH = xH(2):  T = xR(1, 2)
    End If
    xR(1, 16).Resize(1, 6).Copy xH
    Set xH = xH(2)
101: Next
End Sub

Xl0000322.rar (11.59 KB)

下載次數: 26

2020-8-15 10:08

VANESSA

活頁簿1.zip (8.6 KB)

下載次數: 9

2020-8-14 15:04

這次附檔成本了,請參照,謝謝

VANESSA

活頁簿1.zip (22 Bytes)

下載次數: 7

2020-8-14 14:54

抱歉,剛才檔案好像沒上傳成功