随着功能的开发，views.py文件的代码会越来越多。 
 整个文件看起来比较庞大臃肿，不方便维护。所以，我准备拆分该文件。
 
首先，在views.py同一个目录下，新建views文件夹。并在该文件夹内新建init.py空文件。 
 再拆分views.py文件，把功能类似的方法放在一起。 
 这时直接运行会出错，还需要修改如下几个地方：
 
1）修改引用 
 若重新阅读代码，核对有那些引用没有添加的话，会比较费时费力。 
 我们可以把之前的views.py文件的全部引用分别都复制到每个拆分出来的文件中。再分别用编辑器的查找功能查找，去掉没有引用到的模块或库。
 
2）添加views之间的引用 
 有些方法可能被单独拆出来，或者划分到其他的文件，而其他的views文件需要用到这个方法。若不处理，会报错。 
 这种情况，添加引用即可。 
 例如我recommend.py文件有个rand_blogs方法。在pages.py中需要使用到该方法。 
 打开pages.py，添加如下引用： 
 from recommend import rand_blogs 
 两个文件都在views目录下，可以直接引用。
 
3）修改urls.py 
 因为我们的views中的方法位置和目录结构改变了，原来的urls设置无法找到对应方法的位置。 
 修改如下：
 
from django.conf.urls import include, url
from views import pages, editor, recommend

urlpatterns = [
 url(r'^comments/',include('apps_third_party.django_comments.urls')), 
    url(r'^$', pages.index, name='blog_list'),
]
 
直接引用该应用目录下的views中的拆分出来的文件，修改对应方法即可。
 
原文地址

 

 

 

 不知你有过这样的经历：从百度文库中下载了一个30页的大PDF文件，特希望把第1-2页单独拆出来，做成一个新的PDF文件。但急于找不到一款使用的转换

 

 

 软件，怎么办，不妨试试迅捷
PDF分割器吧?

 　　1.软件简介

 　　PDF拆分软件一款非常不错的pdf文件分割器，支持批量分割、自定义分割等。而且金软PDF分割工具连PDF加密文件都能分割哦!并且连带输出文件打开

 

 http://www.downxia.com/downinfo/52751.html

 加密和权限密码他都能帮您搞定呢!

 　　2.安装前的准备

 　　l PDF拆分器;l电脑一台

 　　注：这里使用的是软件是V1.1版本，这款功能比较齐全适合大家安装使用。

 　　3.安装过程

 　　方法：百度输入关键词PDF分割工具或PDF分割器，在首页中就会有相关品牌的网址，点击页面中的”立即下载”即可。

 　　4.文件拆分步骤

 　　双击桌面软件图标，在主窗口中点击“添加文件”按钮，将文件逐一导入列表中，或者直接鼠标将文件拖入其中，列表内支持文件拖曳顺序;文件路径

 

 http://www.cncrk.com/downinfo/89914.html

 设置中，我们通常以默认的“自定义文件夹”为输出文本固有的保存位置，当然也可以点击“浏览”重新修改保存地址，最后一步点击“分割文件”按钮

 

 

 ，这时我们可以清晰地看到文件处理状态，在弹出的提示框中，点“确定”即可获得分割好的文件啦。现在去桌面看看文件吧!

 　　注意，操作过程中，如果上传文本顺序有误，可以通过界面中的“上移”或“下移”按钮进行调整;当发现有重复的文本出现时，我们可以通过删除键

 

 

 进行操作，很简单，不是么?

 

1.打开目标excel,按alt + f11键打开VBE窗口
 

 
 
2.选择插入->模块粘贴下面代码到编辑器中
 
 

 
 

 
Sub 保留表头拆分数据为若干新工作簿()
     Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
     c = Application.InputBox("请输入拆分列号", , 4, , , , , 1)
     If c = 0 Then Exit Sub
     Application.ScreenUpdating = False
     Application.DisplayAlerts = False
     arr = [a1].CurrentRegion
     lc = UBound(arr, 2)
     Set rng = [a1].Resize(, lc)
     Set d = CreateObject("scripting.dictionary")
     For i = 2 To UBound(arr)
         If Not d.Exists(arr(i, c)) Then
             Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
         Else
             Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
         End If
     Next
     k = d.Keys
     t = d.Items
     For i = 0 To d.Count - 1
         With Workbooks.Add(xlWBATWorksheet)
             rng.Copy .Sheets(1).[a1]
             t(i).Copy .Sheets(1).[a2]
             .SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"
             .Close
         End With
     Next
     Application.DisplayAlerts = True
     Application.ScreenUpdating = True
     MsgBox "完毕"
 End Sub
 

 
 

 
 
3.保存后回到excel文件，选择开发工具->插入->表单控件(按钮(窗体控件))，没有开发工具选项的在设置里面打开选项如图
 
 

 
 
 
4.按住鼠标左键不动然后在excel中划定一个按钮区域，然后会自动弹出的窗口，选择刚才保存的宏，点击确定
 

 
 

 
 
5.鼠标从按钮上面移开  ，然后点击按钮输入要列号，就是根据哪列的数据进行拆分文件，下图我们输入4就是按照班级进行拆分，根据不同的班级拆分成不同的文件
 
 
5.点击确定后，如果弹出完毕提示框代表拆分完成
 

 
 
6.到源文件所在的目录文件中查看拆分的文件
 

 

工作需要，需要把Excel按照固定行数拆分,生成多个Excel。
 
1.打开Excel，鼠标不要任何选择。按“Alt”+“f11”。
 
 
 在sheet1贴上以下代码，WJhangshu = 250 ，我们是按照250行来拆分一个的。
 
Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 'title
WJhangshu = 250 'num
WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 0 To WJshu
    Workbooks.Add
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"
    Application.DisplayAlerts = True
    ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")
    ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _
     ActiveSheet.Range("A" & bt + 1)
    ActiveWorkbook.Close True
Next
End Sub
 
2. 切回Excel，Alt+f8.弹出框选择刚才的宏，可以“执行”或者单步执行。
 
 
3.核对数据