質問編集履歴

4

2018/06/30 08:39

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- VBA カラー印刷&読み取り専用
1
+ DBに格納された日付がおかしい
test CHANGED
@@ -1,161 +1,41 @@
1
- ### 前提・実現したいこと
1
+ 前提・実現したいこと
2
-
3
- ファイルを開く際に、読み取り専用にして読み取りで開きますか?のポップアップを出ないようにする方法
4
2
 
5
3
 
6
4
 
7
- ②カラー印刷方法
5
+ DBに格納される際に日付(date型)値がおかしくなってしまいます。
6
+
7
+ 送ったデータ「2018/06/29」⇒DBに格納されたデータ「0197-02-06」
8
8
 
9
9
 
10
10
 
11
-
12
-
13
- ```VBA
11
+  発生している問題・エラーメッセージ
14
12
 
15
13
 
16
14
 
17
- Private Sub btn_FileOpen_Click()
15
+ 【Java側】
18
16
 
19
- Dim OpenFileName As Variant, Target As Variant
17
+ 作成した入力フォームから『2018/06/29』という文字列をPOSTで飛ばしています。
20
18
 
21
- 'カレントディレクトリを指定
19
+ 受け取ったサーバサイド側のJavaプログラムでDate型の値で受け取るようにしています。
22
20
 
23
- ChDrive "C"
21
+
24
22
 
23
+ 【DB側】
24
+
25
- ChDir "C:\test"
25
+ 格納された値が『0197-02-06』となっている。
26
26
 
27
27
 
28
28
 
29
- OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
30
-
31
- MultiSelect:=True)
32
-
33
- If IsArray(OpenFileName) Then
34
-
35
- With Me.BookInput
36
-
37
- .Clear
29
+  試したこと
38
-
39
- 'リストボックスにファイル名を表示
40
-
41
- For Each Target In OpenFileName
42
-
43
- .AddItem Dir(Target)
44
-
45
- Next Target
46
-
47
- 'ファイルのあるフォルダーのパスをラベルに表示
48
-
49
- Me.lblPath.Caption = Replace(OpenFileName(1), .List(0, 0), "")
50
-
51
- End With
52
-
53
- Else
54
-
55
- MsgBox "キャンセルされました"
56
-
57
- End If
58
30
 
59
31
 
60
32
 
61
- End Sub
33
+ ・サーバー、postgresql、tomcatなどのシステム時間(タイムゾーン)などは日本時間に設定済み
62
34
 
35
+ ・クライアント側(入力フォーム)からPOSTで飛ばしている値は、『2018/06/29』であることは確認済み
63
36
 
37
+ ・postgresqlのログから、発行されたSQLを見ると、この時点でINSERT~'0197-02-06'~となってしまっているのは確認済み
64
38
 
65
- Private Sub btn_FilePrint_Click()
39
+ ・該当するカラムの型はdate
66
40
 
67
- Dim wb As Integer
68
-
69
- Dim Fn As Variant, i As Long
70
-
71
- Application.ScreenUpdating = False
72
-
73
- With Me.BookInput
74
-
75
- For i = 0 To .ListCount - 1
76
-
77
- Set wb = Workbooks.Open(Me.lblPath.Caption & .List(i, 0))
78
-
79
- wb.PrintOut 'ブック全体を印刷
80
-
81
- wb.Close
82
-
83
- Next
84
-
85
- End With
86
-
87
-
88
-
89
- End Sub
90
-
91
-
92
-
93
- Private Sub UserForm_Initialize()
94
-
95
- Me.lblPath.Caption = ""
96
-
97
- End Sub
98
-
99
-
100
-
101
-
102
-
103
- ```
104
-
105
-
106
-
107
- ### 試したこと
108
-
109
-
110
-
111
- ```VBA
112
-
113
-
114
-
115
- Private Sub btn_FilePrint_Click()
116
-
117
- Dim wb As Integer
118
-
119
- Dim Fn As Variant, i As Long
120
-
121
- Application.ScreenUpdating = False
122
-
123
- With Me.BookInput
124
-
125
- .BlackAndWhite = True '★追加
126
-
127
- For i = 0 To .ListCount - 1
128
-
129
- Set wb = Workbooks.Open(Me.lblPath.Caption & .List(i, 0)ReadOnly:=True) '★追加
41
+ ・同じテーブル内に「作成日」というカラムもあり、そちらの型はtimestamp with time zone NOT NULL DEFAULT now() としていて、正しい日付が格納されているので、postgresqlの環境時間には問題はなさそう
130
-
131
- wb.PrintOut 'ブック全体を印刷
132
-
133
- wb.Close
134
-
135
- Next
136
-
137
- End With
138
-
139
- ```
140
-
141
-
142
-
143
- ### 補足情報
144
-
145
- カラー印刷をしようと
146
-
147
- .BlackAndWhite = True
148
-
149
-
150
-
151
- 読み取り専用にしようと
152
-
153
- ReadOnly:=True
154
-
155
-
156
-
157
- を追加しても上手くカラー設定と読み取り専用にできませんでした。
158
-
159
-
160
-
161
- よろしくお願い致します

3

2018/06/30 08:39

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,6 +1,6 @@
1
1
  ### 前提・実現したいこと
2
2
 
3
- ファイルを開く際に、読み取り専用にして読み取りで開きますか?のポップアップを出ないようにする方法
3
+ ファイルを開く際に、読み取り専用にして読み取りで開きますか?のポップアップを出ないようにする方法
4
4
 
5
5
 
6
6
 

2

2018/06/30 08:07

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -100,7 +100,7 @@
100
100
 
101
101
 
102
102
 
103
- ``
103
+ ```
104
104
 
105
105
 
106
106
 
@@ -159,9 +159,3 @@
159
159
 
160
160
 
161
161
  よろしくお願い致します
162
-
163
-
164
-
165
-
166
-
167
- ```

1

2018/06/25 01:40

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -159,3 +159,9 @@
159
159
 
160
160
 
161
161
  よろしくお願い致します
162
+
163
+
164
+
165
+
166
+
167
+ ```