ACCESS\u304b\u3089VBA\u3067\u30a8\u30af\u30bb\u30eb\u3092\u64cd\u4f5c\u3059\u308b\u3068\u304d\u306b\u3001\u305d\u308c\u305e\u308c\u306e\u30d6\u30c3\u30af\u3092\u958b\u304f\u5fc5\u8981\u304c\u3042\u308a\u3001\u305d\u3053\u3067COPY \u3068\u3000PASTESPECIAL \u30e1\u30bd\u30c3\u30c9\u3092\u7528\u3044\u308b\u3002\u305d\u308c\u3092\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3059\u308b\u5834\u5408\u3001\u300c\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u5927\u304d\u306a\u30c7\u30fc\u30bf\u304c\u30fb\u30fb\u30fb\u300d\u3068\u3044\u3046\u65e8\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u304c\u5fc5\u305a\u51fa\u3066\u4e2d\u65ad\u3055\u308c\u308b\u306e\u3067\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u6bce\u56de\u30af\u30ea\u30a2\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3002
\n\u305d\u308c\u3092\u5b9f\u73fe\u3057\u3066\u3044\u308b\u306e\u304c\u4e0b\u8a18\u306e\u30bd\u30fc\u30b9\u3068\u306a\u308b\u3002<\/p>\n
\u5192\u982d\u306b
\nPrivate Declare Function OpenClipboard Lib “user32” (ByVal hwnd As Long) As Long
\nPrivate Declare Function EmptyClipboard Lib “user32” () As Long
\nPrivate Declare Function CloseClipboard Lib “user32” () As Long<\/p>\n
\u6587\u4e2d\u3067<\/p>\n
Do Until rs.EOF
\nfName = rs!\u30d5\u30a1\u30a4\u30eb\u540d
\nfPath = foName & fName
\nwksTarget.Cells(2, i) = Left(fName, Len(fName) – 10)<\/p>\n
xls.ScreenUpdating = False<\/p>\n
Set wkb2 = Workbooks.Open(fPath)
\nwkb2.Worksheets(1).Range(“a1”).CurrentRegion.Select
\nSelection.Offset(1).Copy
\nwksTarget.Cells(4, i).PasteSpecial Paste:=xlPasteValues<\/p>\n
‘\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u7a7a\u306b\u3059\u308b
\nIf OpenClipboard(ByVal 0&) Then
\n Call EmptyClipboard
\n Call CloseClipboard
\nEnd If<\/p>\n
wkb2.Close
\nxls.ScreenUpdating = True<\/p>\n
rs.MoveNext<\/p>\n
i = i + 2<\/p>\n
Loop<\/p>\n","protected":false},"excerpt":{"rendered":"
ACCESS\u304b\u3089VBA\u3067\u30a8\u30af\u30bb\u30eb\u3092\u64cd\u4f5c\u3059\u308b\u3068\u304d\u306b\u3001\u305d\u308c\u305e\u308c\u306e\u30d6\u30c3\u30af\u3092\u958b\u304f\u5fc5\u8981\u304c\u3042\u308a\u3001\u305d\u3053\u3067COPY \u3068\u3000PASTESPECIAL \u30e1\u30bd\u30c3\u30c9\u3092\u7528\u3044\u308b\u3002\u305d\u308c\u3092\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3059\u308b\u5834\u5408\u3001\u300c\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u5927\u304d\u306a\u30c7\u30fc\u30bf\u304c\u30fb\u30fb\u30fb\u300d\u3068\u3044 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"vkexunit_cta_each_option":"","footnotes":""},"categories":[24],"tags":[],"class_list":["post-380","post","type-post","status-publish","format-standard","hentry","category-access"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/380","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/comments?post=380"}],"version-history":[{"count":2,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/380\/revisions"}],"predecessor-version":[{"id":382,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/380\/revisions\/382"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=380"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=380"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=380"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}