{"id":6082,"date":"2025-03-27T02:05:44","date_gmt":"2025-03-27T02:05:44","guid":{"rendered":"https:\/\/lacotasu.com\/?p=6082"},"modified":"2025-03-27T02:06:00","modified_gmt":"2025-03-27T02:06:00","slug":"excel%e6%93%8d%e4%bd%9c%e5%88%97%e5%89%8a%e9%99%a4%e3%81%8c1%e5%88%97%e3%81%9a%e3%81%a4%e3%81%97%e3%81%8b%e5%89%8a%e9%99%a4%e3%81%a7%e3%81%8d%e3%81%aa%e3%81%84%e3%81%ae%e3%81%a7%e3%80%81%e8%a4%87","status":"publish","type":"post","link":"https:\/\/lacotasu.com\/?p=6082","title":{"rendered":"Excel\u64cd\u4f5c(\u5217\u524a\u9664)\u304c1\u5217\u305a\u3064\u3057\u304b\u524a\u9664\u3067\u304d\u306a\u3044\u306e\u3067\u3001\u8907\u6570\u540c\u6642\u306b\u524a\u9664\u3067\u304d\u308b\u3088\u3046\u306b\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"\n

\u4fee\u6b63\u65b9\u6cd5<\/h2>\n\n\n\n
\"\"<\/figure>\n\n\n\n

\u3053\u308c\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4fee\u6b63<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u2193\u30b9\u30af\u30ea\u30d7\u30c8\u306e\u300c\u6307\u5b9a\u3055\u308c\u305f\u5217\u3092\u524a\u9664\u3059\u308b\u300d\u306e\u3068\u3053\u308d\u3092\u4ee5\u4e0b\u306e\u8d64\u5b57\u306e\u3088\u3046\u306b\u4fee\u6b63<\/mark><\/p>\n\n\n\n

<\/p>\n\n\n\n

<\/p>\n\n\n\n

' ====\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f====================================================<\/p>\n\n\n\n

' \u30d5\u30a1\u30a4\u30eb\u306e\u30d1\u30b9\u3092\u30d5\u30eb\u30d1\u30b9\u306b\u5909\u63db\u3059\u308b
fname = !\u30d5\u30a1\u30a4\u30eb\u540d!
SetUMSVariable \"$FILE_PATH_TYPE\", \"1\"
SetUMSVariable \"$PARSE_FILE_PATH\", fname
filePath = GetUMSVariable(\"$PARSE_FILE_PATH\")
If filePath = \"\" Then
Err.Raise 1, \"\", \"\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002\"
End If<\/p>\n\n\n\n

' workbook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b
Set workbook = Nothing
On Error Resume Next
' \u65e2\u5b58\u306e\u30a8\u30af\u30bb\u30eb\u304c\u8d77\u52d5\u3055\u308c\u3066\u3044\u308c\u3070\u8b66\u544a\u3092\u6291\u5236\u3059\u308b
Set existingXlsApp = Nothing
Set existingXlsApp = GetObject(, \"Excel.Application\")
existingXlsApp.DisplayAlerts = False<\/p>\n\n\n\n

Set wash = CreateObject(\"WinActor7.ScriptHelper\")
For Each book in wash.GetExcelWorkbooks
SetUMSVariable \"$FILE_PATH_TYPE\", 0
SetUMSVariable \"$PARSE_FILE_PATH\", book.FullName
bookPath = GetUMSVariable(\"$PARSE_FILE_PATH\")
If StrComp(bookPath, filePath, 1) = 0 Then
Set workbook = book
Set xlsApp = workbook.Parent
xlsApp.Visible = True
Exit For
End If
Next
Set wash = Nothing<\/p>\n\n\n\n

' Workbook\u304c\u5b58\u5728\u3057\u306a\u3044\u5834\u5408\u306f\u3001\u65b0\u305f\u306b\u958b\u304f\u3002
If workbook Is Nothing Then
Set xlsApp = Nothing<\/p>\n\n\n\n

' Excel\u304c\u65e2\u306b\u958b\u304b\u308c\u3066\u3044\u305f\u306a\u3089\u305d\u308c\u3092\u518d\u5229\u7528\u3059\u308b\nIf Not existingXlsApp Is Nothing Then\n  Set xlsApp = existingXlsApp\n  xlsApp.Visible = True\nElse\n  Set xlsApp = CreateObject(\"Excel.Application\")\n  xlsApp.Visible = True\nEnd If\n\nSet workbook = xlsApp.Workbooks.Open(filePath)<\/code><\/pre>\n\n\n\n
End If<\/p>\n\n\n\n
' \u8b66\u544a\u306e\u6291\u5236\u3092\u5143\u306b\u623b\u3059
existingXlsApp.DisplayAlerts = True
Set existingXlsApp = Nothing
On Error Goto 0<\/p>\n\n\n\n
If workbook Is Nothing Then
Err.Raise 1, \"\", \"\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002\"
End If<\/p>\n\n\n\n
' ====\u6307\u5b9a\u3055\u308c\u305f\u30b7\u30fc\u30c8\u3092\u53d6\u5f97\u3059\u308b==================================================<\/p>\n\n\n\n
sheetName = !\u30b7\u30fc\u30c8\u540d!
Set worksheet = Nothing
On Error Resume Next
' \u30b7\u30fc\u30c8\u540d\u304c\u6307\u5b9a\u3055\u308c\u3066\u3044\u306a\u3044\u5834\u5408\u306f\u3001\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u3092\u5bfe\u8c61\u3068\u3059\u308b
If sheetName = \"\" Then
Set worksheet = workbook.ActiveSheet
Else
Set worksheet = workbook.Worksheets(sheetName)
End If
On Error Goto 0<\/p>\n\n\n\n
If worksheet Is Nothing Then
Err.Raise 1, \"\", \"\u6307\u5b9a\u3055\u308c\u305f\u30b7\u30fc\u30c8\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\"
End If<\/p>\n\n\n\n
worksheet.Activate<\/p>\n\n\n\n
' ====\u6307\u5b9a\u3055\u308c\u305f\u5217\u3092\u524a\u9664\u3059\u308b==================================================<\/mark><\/p>\n\n\n\n
' \u524a\u9664\u3059\u308b\u5217\u3092\u914d\u5217\u3068\u3057\u3066\u6271\u3046
deleteColumns = Split(!\u524a\u9664\u5217!, \",\")<\/mark><\/p>\n\n\n\n
' \u5217\u3092\u964d\u9806\u306b\u30bd\u30fc\u30c8\uff08\u5f8c\u308d\u306e\u5217\u304b\u3089\u524a\u9664\u3059\u308b\u305f\u3081\uff09
For i = 0 To UBound(deleteColumns) - 1
For j = i + 1 To UBound(deleteColumns)
If CInt(Trim(deleteColumns(i))) < CInt(Trim(deleteColumns(j))) Then
temp = deleteColumns(i)
deleteColumns(i) = deleteColumns(j)
deleteColumns(j) = temp
End If
Next<\/mark>
Next<\/mark><\/p>\n\n\n\n
' \u5404\u5217\u3092\u524a\u9664
For Each col In deleteColumns
colNum = CInt(Trim(col))
worksheet.Columns(colNum).Delete
Next<\/mark><\/p>\n\n\n\n
Set objRe = Nothing
Set xlsApp = Nothing
Set worksheet = Nothing
Set workbook = Nothing<\/mark><\/p>\n\n\n\n
\u4f7f\u3044\u65b9<\/h2>\n\n\n\n
\u524a\u9664\u3057\u305f\u3044\u5217\u3092\u3044\u304f\u3064\u3067\u3082\u5217\u756a\u53f7\u3067\u6570\u5b57\u3067\u30ab\u30f3\u30de\u533a\u5207\u308a<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u4ee5\u4e0a<\/p>\n","protected":false},"excerpt":{"rendered":"
\u4fee\u6b63\u65b9\u6cd5 \u3053\u308c\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4fee\u6b63 \u2193\u30b9\u30af\u30ea\u30d7\u30c8\u306e\u300c\u6307\u5b9a\u3055\u308c\u305f\u5217\u3092\u524a\u9664\u3059\u308b\u300d\u306e\u3068\u3053\u308d\u3092\u4ee5\u4e0b\u306e\u8d64\u5b57\u306e\u3088\u3046\u306b\u4fee\u6b63 ' ====\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f============================ ... <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[61,109],"tags":[],"class_list":["post-6082","post","type-post","status-publish","format-standard","hentry","category-rpa","category-winactor"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts\/6082","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6082"}],"version-history":[{"count":1,"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts\/6082\/revisions"}],"predecessor-version":[{"id":6086,"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts\/6082\/revisions\/6086"}],"wp:attachment":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6082"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6082"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6082"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}