Excelが外部データクエリをQuery_tableにクラッシュするようにするためのOfficeアップデート(Build9126.2259)

応答15# ->にスキップ

16 #

NehaSin 2018-07-25 16:30

こんにちはマイク、

ご不便をおかけして申し訳ありません.問題のトラブルシューティングを行うために、次の情報を収集したいと思います.

ネハ

応答16# ->にスキップ

14 #

MikeMye 2018-07-26 00:51

こんにちはNeha、

1.正確にあなたは問題を受け取りますか?再現する詳細な手順を入力してください.

ファイルには3枚のシートがあります.1つ目は、ユーザーがクエリパラメータを入力する場所です.2つ目は、パラメータがSQLコードと組み合わされて動的クエリを作成します.コードの最後に、私はTextJoinを使用してそれを単一のセルで結合します.私はVBAを使います
コードをコピーして、3番目のシートのクエリtableに貼り付けます.この返信に続いて、添付のスクリーンショットとVBAが使用されます.

VBAが実行されてから30秒後にエラーが発生し、コードがサーバーに送信されました.サーバーが結果の送信を開始するのに必要な時間の時間です.私は以前にスクリーンショットに貼り付けましたが、一度投稿
彼らが含まれていなかったように見えた.もう一度やりますが、彼らが現れない場合は、添付ファイルで再び応答します.

ポップアップエラーボックス内の詳細:

問題を説明するのに役立つファイル:

C:\users\\appdata\local\temp\{fdb777eb1-28d3-4134-8334-1b93dba2b0ce}-oprocsessid.dat C:\users\..\appdata\local\temp\wera8fd.tmp.werinternalMetadata.xml C:\users\..\appdata\local\temp\werb4b1.tmp.appcompat.txt C:\\users\..\appdata\local\temp\werb677.tmp.hdmp

オンラインでのプライバシーに関する声明を読んでください:

リンク:LinkID &clcid= 0x0409

オンラインプライバシーステートメントが利用できない場合は、プライバシーステートメントをオフラインで読んでください.

c:\windows\system32\ja-us\erofflps.txt

再起動を通じてExcelサイクルを承認したら.

3.version1803を使用しているすべてのユーザー(Build 9126.2259)が同じ問題を抱えていますか?

はい、Officeのアップデートが登場したときに、すべてのユーザーが同時に問題を経験し始めました.私は個人的にアップグレードを受け入れて問題のトラブルシューティングを試みました.私は自分のマシンにそれを再現できませんでした.実現していない
それは私のマシン上のアップデートを受け入れました.それから私はエラーを再現することができました.どうやら、他のいくつかのユーザーはまた、同時に更新を同時に受け入れてから、エラーで呼び出しを開始しました.いたユーザー
問題が更新されていないか、アカウントが更新に切り替えられていないことを経験していない.影響を受けないユーザーは1708年(8431.2270Build)、そして私たちが全員をロールしたら、問題は停止しました.

4.あなたのOSversionは何ですか?

すべてのユーザーが問題を経験した人に注意しています.私のマシンは、72 GBのRAMが付いているIntel Xeon CPU E5-1560 V3 @ 3.50 GHzでHP Z440ワークステーションで動作しているWin7 Pro Service Pack 1です.

応答14# ->にスキップ

13 #

MikeMye 2018-07-26 00:59

応答13# ->にスキップ

12 #

MikeMye 2018-07-26 00:52

1.正確にあなたは問題を受け取りますか?再現する詳細な手順を入力してください.

クエリパラメータ:

応答12# ->にスキップ

11 #

MikeMye 2018-07-26 00:58

1.正確にあなたは問題を受け取りますか?再現する詳細な手順を入力してください.

動的SQLコードを含む

2シート

応答11# ->にスキップ

10 #

MikeMye 2018-07-26 01:07

1.正確にあなたは問題を受け取りますか?再現する詳細な手順を入力してください.

クエリtable

を含む3シート

応答10# ->にスキップ

8 #

MikeMye 2018-07-26 01:10

1.正確にあなたは問題を受け取りますか?再現する詳細な手順を入力してください.

VBAの実行に使用された

パブリックサブOpenJOBS()

Sheet5.Visible= XLSheetVisible

'エラーの再開次の
'SqlJobs
Application.Gotoリファレンス:= "SQLJOBS"
selection.copy
'コンテンツをコピーする
DIM SQLJOBSとして文字列として
SQLJOBS= CLIPBOARD_GETTEXT()
'レポートを選択する
Application.Gotoリファレンス:= "RPTJOBS"
selection.listObject.QueryTableTable
.commandtype= xlcmdsql
・コマンドテキスト= SQLJOBS
.refresh BackgroundQuery:= false


行動
err<>0の場合msgbox err.description

Application.CutCopyMode= false

Sheet5.Visible= XLVERYHIDDIND

終了SUB

宣言:

Public Const GHND=&H42
Public Const CF_TEXT= 1
Private Const CF_Ansionly=&H400&
プライベートコンストラクションCF_APPLY=&H200&
プライベートconst cf_bitmap= 2
プライベートconst cf_dib= 8
プライベートコンストラクトCF_DIF= 5
プライベートコンストラクションCF_DSPBITMAP=&H82
プライベートコンストラクションCF_DSPENHMETAFILE=&H8E
プライベートコンストラクトCF_DSPMetaFilePict=&H83
プライベートコンストラクションCF_DSPTEXT=&H81
プライベートコンストラクションCF_EFFECTES=&H100&
プライベートコンストラクトCF_ENABLEHOOK=&H8&
プライベートコンストラクティブCF_ENABLETEMPLATE=&H10&
プライベートコンストラクションCF_ENABLEtemplateHandle=&H20&
プライベートコンストラクトCF_ENHMETAFILE= 14
プライベートコンストラクトCF_FIXEDPITCHONLY=&H4000&
プライベートコンストラクションCF_FORCEFONTEXIST=&H10000
プライベートコンストネートCF_GDIOBJFIRST=&H300
プライベートコンストラクトCF_GDIOBJLAST=&H3FF
プライベートConst CF_HDROP= 15
プライベートコンストラクションCF_InittOlogFontStruct=&H40&
プライベートコンストレーションCF_LimitSize=&H2000&
プライベートconst cf_locale= 16
プライベートConst CF_MAX= 17
Private Const CF_MetaFilePict= 3
Private Const CF_NOFCESEL=&H80000
プライベートコンストラクションCF_NOScriptSel=&H800000
Private Const CF_NoSimulations=&H1000&
プライベートコンストラクションCF_NOSIZESEL=&H200000
プライベートコンストラクションCF_NOSTYLESEL=&H100000
プライベートコンストラクションCF_NovectorFonts=&H800&
プライベートコンストラクションCF_NOOEMFONTS= CF_NOVECTORFONTS
プライベートコンストラクションCF_NOVERTFONTS=&H1000000
プライベートconst cf_oemtext= 7
プライベートコンストラクションCF_OWNERDISPLAY=&H80
プライベートコンストラクトCF_PALETTE= 9
プライベートconst cf_pendata= 10
プライベートコンストラクションCF_PRINTERFONTS=&H2
プライベートコンストレーションCF_PRIVATEFIRST=&H200
プライベートコンストラクションCF_Privatelast=&H2FF
Private Const CF_RIFF= 11
プライベートコンストラクションCF_SCALABLEONLY=&H20000
プライベートコンストラクションCF_SCREENFONTS=&H1
プライベートconst cf_both=(cf_screenfontsまたはcf_printerfonts)
プライベートconst cf_scriptsonly= cf_ansionly
プライベートコンストラクトCF_SelectScript=&H400000
Private Const CF_ShowHelp=&H4&
プライベートコンストネートCF_SYLK= 4
プライベートconst cf_tiff= 6
プライベートコンストレーションCF_TTONLY=&H40000
プライベートコンストラクションCF_UNICODETEXT= 13
プライベートコンストラクションCF_USESTYLE=&H80&
プライベートconst cf_wave= 12
プライベートコンストラクションCF_WYSIWYG=&H8000

プライベート宣言関数globalalloc lib "kernel32"(byval wflags&byval dwbytes&byval dwbytes)長い
Private Declare Function GlobalOck Lib "Kernel32"(ByVal HMEM(Long Chem)
Private Declare関数GlobalSize lib "kernel32"(byval hmem hmem)長い
Private Declare Function LSTRCPY LIB "Kernel32"(Any As Any、ByVal LPString2 Any As Any As Any As Any) Private Declare Function LSTRLEN LIB "Kernel32" alias "lstrlena"(文字列としてのbyval lpstring)

プライベート宣言関数globalunlock lib "kernel32"(ByVal HMEM HMEM)長い

プライベート宣言関数OpenClipboard lib "user32"(BYVAL HWND LONG)
Private Declare関数CloseClipboard lib "user32"()長い
Private Declare Function GetClipboardData lib "user32"(byval wformat wformat)長い
Private Declare関数EmptyClipboard lib "user32"()長い
Private Declare機能SetClipboardData lib "user32"(Long Long wformat byval wformat、byval hmem)長い

Public Function Clipboard_Settext(StrcopyString as Stringとして)ブール
薄型LPGlobalMemoryの長い
薄暗いhclipMemoryの長い
hglobalmemory= globalloc(GHND、Len(StrCopyString)+ 1)
lpglobalmemory= GlobalOck(HglobalMemory)
lpglobalmemory= lstrcpy(lpglobalmemory、strcopystring)
GlobalUnlock(HglobalMemory)= 0から
OpenClipboard(0&)<>0の場合は<> EmptyClipboardを呼び出す
hclipMemory= setClipboardData(CF_Text、HglobalMemory)
Clipboard_SetText= CBool(CloseClipboard)

の場合は終了
の場合は終了 終了関数

public function clipboard_getText()文字列として
薄型LPClipMemoryの長い
文字列としてのムラ
薄型Retval長い
DIM LNGSIZEは長い
OpenClipboard(0&)<>0の場合は<> hclipMemory= getClipboardData(cf_text)
hclipmemory<>0の場合
lpclipmemory= GlobalOck(hclipMemory)
lpclipmemory<>0の場合
lngsize= GlobalSize(lpclipMemory)
strcbtext= space $(lngsize)
Retval= LSTRCPY(STRCBTEXT、LPCLIPMEMORY)
Retval= GlobalUnlock(hclipMemory)
strcbtext= left(strcbtext、Instr(1、strcbtext、chr $(0)、0)-1)


MSGBOXは「文字列をコピーするためにメモリをロックできません」

の場合は終了
の場合は終了 CloseClipboardを呼び出す

の場合は終了 Clipboard_GetText= strcbtext
終了関数

公共機能CopyOlePicy(オブジェクトとしてのPiccy)
DIM hglobalmemoryは長く、lpglobalmemoryの長い
DIM hclipMemoryは長く、x長い
hglobalmemory= globalaloc(GHND、Len(PICCY)+ 1)
lpglobalmemory= GlobalOck(HglobalMemory)
lpglobalmemory= lstrcpy(lpglobalmemory、piccy)
「メモリのロックを解除します.
GlobalUnlock(HglobalMemory)<>0から<> msgbox "メモリの場所のロックを解除できませんでした.コピーが中止されました.
後ろに


の場合は終了 OpenClipboard(0&)= 0の場合は
MsgBox "クリップボードを開けませんでした.コピーを中止しました."
終了機能

の場合は終了 X= EmptyClipboard()
hclipMemory= setClipboardData(CF_Text、HglobalMemory)
OUTOFHERE2:
CloseClipboard()= 0の場合
MsgBoxは「クリップボードを閉じることができませんでした」

の場合は終了 終了関数

応答8# ->にスキップ

9 #

SheenVa 2018-07-26 20:35

こんにちはマイク、

このワークフローはビジネスにとって重要であるため、手順の詳細を示すプライベートメッセージをお送りしました.適切なサポートを受けるため.

応答9# ->にスキップ

7 #

MikeMye 2018-07-26 21:52

こんにちはシーン

プライベートメッセージを受け取りました.有料のサポートを提供します.正解です.これは、私のビジネスにとっても、このテクノロジーを導入してきた過去15年間に参加してきたビジネスにとっても重要な問題です.Excelは
これまで使用した中で最高のERPカスタムレポートツール.エンドユーザーは、他のどのApplicationよりもそれを好みます.それをより安定させたり、何を理解しやすくしたりするためだけに、Microsoftがそれをさらに良くする(または私が学ぶことができる)ためにできることがいくつかあります
は不安定になるため、修正できます.最新のOfficeアップデートが、実際にはERPの動的クエリカスタムレポートツールとしてExcelを使用する上で致命的な問題ではないことを願っています.

このスレッドをフォローアップして、フォローしている人が正しい解決策を知っているか、今後このExcelの使用を試みないことを知ってもらうことが私の意図です.

マイク

応答7# ->にスキップ

4 #

CarterY 2018-08-22 14:02

ハローマイク/シーン、

良い日、マイクロソフトが問題を解決できたかどうかを確認したいと思った?

YESの場合、あなたはそれらによって提供される解決策を共有するようにあなたはとても親切にすることができますか?

あなたの助言を願って、事前にありがとう

応答4# ->にスキップ

5 #

SheenVa 2018-08-24 19:37

こんにちはカーターとマイク、

関連チームから、現在のマンスリーversion1807(Build10325.20118)に更新して、機能するかどうかを確認するための連絡がありました.

応答5# ->にスキップ

3 #

CarterY 2018-08-27 16:06

ハローシーン

お返事ありがとうございます.実際、影響を受けるユーザーの問題を修正するために行ったのは、更新前にversionを以前の作業versionにロールバックすることでした.

一部のユーザーが更新後に発生している同様の問題に関する解決策を検索しようとしているときにこのスレッドを見たので、version1803(Build9126.2259)に修正が提供されているかどうかを確認しようとしました

良い一日を

応答3# ->にスキップ

2 #

SheenVa 2018-08-28 01:25

こんにちはカーター、

ログ.情報を収集するために、プライベートメッセージを送信します.

応答7# ->にスキップ

6 #

SheenVa 2018-07-27 14:39

こんにちはマイク、

ユーザーは常に当社の製品に最高のものを期待していることを理解しており、問題が解決したらソリューションを共有していただきありがとうございます.

他にご不明な点がございましたら、お気軽にお問い合わせください.できる限りサポートさせていただきます.