From d7a84571141b9ac940f2ab4bdcc9fb1c08931066 Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 18 Sep 2026 18:12:31 +0900
Subject: [PATCH] =?UTF-8?q?fix:=20exportCSVDataToSheet=E3=81=8C=E6=97=A2?=
 =?UTF-8?q?=E5=AD=98=E3=83=86=E3=83=BC=E3=83=96=E3=83=AB=E3=81=A7=E3=82=82?=
 =?UTF-8?q?=E3=83=98=E3=83=83=E3=83=80=E8=A1=8C=E3=82=92=E6=AF=8E=E5=9B=9E?=
 =?UTF-8?q?CSV=E3=81=AE=E6=9C=80=E6=96=B0=E5=88=97=E6=A7=8B=E6=88=90?=
 =?UTF-8?q?=E3=81=A7=E6=9B=B4=E6=96=B0=E3=81=99=E3=82=8B=E3=82=88=E3=81=86?=
 =?UTF-8?q?=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

従来は新規テーブル作成時のみヘッダを設定し、既存テーブルがある場合はヘッダを書き換えていなかったため、
Pleasanter側で列の追加・削除・並び替えが起きるとヘッダラベルとデータ列がズレる問題があった。
getRecordsDataToSheet(Get方式)と同様、テーブルの有無に関わらず毎回CSVの1行目でヘッダを上書きするよう変更。

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 .../vba-files/Module/Module1.bas                     | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 829849ee..3a9fadb6 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -198,13 +198,15 @@ Function exportCSVDataToSheet(csvData As Variant, targetSheet As String)
         Set tbl = ws.ListObjects(targetSheet)
         On Error Goto 0
 
+            '�w�b�_�s�̓e�[�u���̗L���Ɋւ�炸����CSV��1�s��(arr(0,*))�ōX�V����i��\���̕ύX�ɒǏ]���邽�߁j
+            Dim headerRange As Range
+            Set headerRange = ws.Range("A1").Resize(1, maxCols)
+            For j = 0 To maxCols - 1
+                headerRange.Cells(1, j + 1).Value = arr(0, j)
+            Next j
+
             If tbl Is Nothing Then
                 Debug.Print "�e�[�u�������݂��Ȃ����ߐV�K�쐬: " & targetSheet
-                Dim headerRange As Range
-                Set headerRange = ws.Range("A1").Resize(1, maxCols)
-                For j = 0 To maxCols - 1
-                    headerRange.Cells(1, j + 1).Value = arr(0, j)
-                Next j
                 Set tbl = ws.ListObjects.Add(xlSrcRange, headerRange, , xlYes)
                 tbl.Name = targetSheet
             End If